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Crayon optique 

BemarcJ BezueS 



Ce programme, 6crlt en assembleur, 
permet da cr£er des desslns 
dlrectement & l'6cran a l'alde dun 
crayon optique. Cet accessolre (qu'll 
vous faudra construlre en suivant les 
Indications Jolntes a cet article) n'est 
pas Indispensable car le programme 
peut aussl recevolr des ordres 
provenant du clavier. 

Les flchlers source qul apparalssent 
pages sulvantes concement upe version 
utlllsable avec une extension de 
mSmoIre 32Ko. Cependant, nos lecteurs 
munis seulement de la Mlnl-memolre 
pourront utlllser ce programme en 
entrant, sous EASY BUG, la llste de 
codes machines placSe en fin tfartlcle 
(une autre solution, plus .simple, 
conslste a charger le code objet sltu6 
sur la cassette (faccompagnement du 
numSro 8, avec l'optlon L de EASY BUG; 
le programme est baptist ’CRAYON'). 
La difference entre les deux versions 
porte essentlellement sur l'afflchage 
des menus, qul ont dus §tre raccoucls 
afln de permettre leur Implantation 
dans les 4Ko de la Mlnl-memolre. Pour 
la version ’edlteur/assembleur", nous 
avons prevu (fautres fonctlons sous 
forme de modules qul seront ajoutes 
par la suite; cela ne sera blen sGr pas 
possible avec la version ’Mlnl- 
memolre’. 

Nous ne nous etendrons pas sur le 
fonctlonnement du programme car les 
nombreuses remarques presentes dans 
les listings vous permett'ront de 
comprendre afsement. De m§me, 11 
n'est pas necessalre de donner un mode, 
d'emplol pour la version ’6d1teur/ 
assembleur’, les divers menus etant 
tres ’parlants’. Ce n'est pas tout a fait 
aussl simple avec la version 
’Mlnl-memolre’; nous vous proposons 
done un petit mode (femplcl danc 
lequel les cMffres repr6sentent les 
touches Q.'i'i ; .t press er pour acceder 
a une for.:: or.; :„-s lettres minuscules 
entre parentheses correspondent aux 
memes fonctlons, mals cette fois avec 
le crayon optique. 

menu principal 



i - ipj : point 
e — iti : trait 
3 — idi : drolte 
*» - tc) : curvlllgne 
6 - Ce) : ecran 

Options 

1 : Point 

Mise en place d un point 

E : Trait 
1 Iv) visible 

le deplacement de la mire lalsse 
une trace visible (pixels allum6s). 

E (I) invisible 

efface les points visibles (pixels 
etelnts). 

3 (c) couleur' 

cholx (Tune nouvelle couleur (code 
des 16 couleurs de 0 £ F). 

4 in fond 

l'ecran est colorie en couleur de 
fond (pixels etelnts). 

B (r~J rempllssoge 

la surface Interleure a la llgne 
ferm6e est coloriee (pixels 
allumes) avec cholx de couleur 
code 0 3 F). 

3 : Drolte 
1 (a) axes 

trace deux axes perpendlculalres 
(pixels allumes). 

E tsl segment 

place une mire fixe en extr£mlt6 
(fun segment (ler cholx), puls 
trace un segment Jusqu'a la mire 
mobile ( 2 eme cholx). 

3 ttil Nsrlzontole 

trace une drolte horlzontale. 

** lv) vertlcale 

trace une drolte vertlcale. 

it) 

retour au menu principal. 

*3 : curvlllgne 

rempllssage de surface autour (fun 
point pivot. 

1 In) 

en allumant les pixels, 
e (e) 

en colorlant le fond (pixels 
iteints). 



(sJ 

confirmation ou annulatlon de 
l'optlon rempllssage curvlllgne. 

B tp) 

mlse en place du point pivot avec 
cholx de la couleur (code 0 £ F). 
it) 

retour au menu principal. 

E : 6cren 

nettoyage de l'6cran (pixels Etelnts). 

Les options visible, invisible, fond 
et curviiigne s'annulent en les 
choisissant deux fois. La mire se 
d^place au crayon optique ou avec les 
touches K £, R, S. D. Z. X et C. 

Lints des compososts 

necesscirBE 

1 Photo-transistor Texas type TIL8I 

2 amplls opfiratlonnels LF156 (circuits 
1nt6gr6s, boltler 8 broches) 

4 resistances B2KO, 1/4W 
1 resistance 68KO, 1/4W 
1 resistance 2.2KO, 1/4W 
1 condensateur 47nF, 250V 
1 condensateur 82nF, 250V 
1 connecteur CANON 9 broches femelle 
avec capot 

1,5 metre de cable 4 conducteurs 

bllndes 

1 plaquette d'essai a bandes, de 1 cm * 
10 cm (4 rangees de 39 trous). Les 
bandes culvrees dolvent etre 
perpendlculalres a la grande 
longueur de la plaquette. 

1 tube plastlque de 10mm de dlamfetre 
Interleur et de 16 cm de longueur 
(gllsser la plaquette cabiee a 
1 'lnterleur du tube, montage 
lagferement serr6) 

2 embouts plastlques, un c6t6 cellule 
photo transistor, un c6t£ sortie 
cable vers console. Fermer le tout en 
collant au trlchlo 

2 portes fuslbles a boulonner 
2 fuslbles de 300mA 

Les connexions sur la plaquette sont a 
falre en fll souple, fin et Isolds ’(type 
taifiphone), environ 2 metres. 
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RLIMENTHTION DU Tl 
(cote soudures) 



FUSIBLES 300mH 

Les portes fusibles 
peuuent etre 
boulonnes sur le 
blindage de la 
carte mere 

pour B4 et B7, uoir 
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Sourco COPy/S 



COPY *DSK1 .REFE/S' 
COPY "DSK1 .REMP/S" 
COPY "DSK1 .CRAY/S* 
COPY ■DSKl.STOR/S' 
COPY *DSK1 . MENU/S * 
COPY ■DSK1.NEWC/S' 
COPY •DSKl.GRAF/S* 
COPY 'DSK1 .PROG/S' 



Source REFE/S 

XXXXXXIXXXXXXXXXXXXXXXXXXXXXXXXX^ 



* PROGRAttlE DE DESSIN A L'ECRAN * 

X X 

X AVEC LE CRAYON OPTIQUE * 

x « 

* OU LE CLAVIER * 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



* VERSION EDITOR/ASSEMBLER * 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

* 

COPYRIGHT 9? MAGAZINE * 

X 

& « 
* 



BERNARD BEZUEL * 



CD 



xxxxxxxxxxxxxxxxxxxxxsxxxxxxxxxxx 

* X 

» PROGRAttlE DE LANCEMENT: CRAYON # 

* EXECUTION AVEC L'OPTICN BASIC * 

* DISQUEnE DANS LECTEUR DSK1 * 

* x 
XXIXXXXXXXXXXXXXXXXXXXXXXXXXXIXXX 



*» REFE/S ** REFERENCES/DATA *» 

DEF CRAYON 

REF VSBU,WBW,VSBR,WBR 
REF DSRLNK,KSCAN,WTR 
AORG >2700 
PAB EQU >1F00 
FNTR EOU >8354 
RTCLAV EQU >8375 
STATUS EQU >837C 
TABLUT EQU >1BB0 
USRUS EQU >20 BA 
xCARACTERES MINUSCULES NOIR SUR BL/NC (CODE 32 A 95) 
TALPHA DATA >0000, >0000, >0000, >0000 espace 
DATA > FFEF , ) EFEF , > EFFF , ) EFFF ! 

DATA >FFD7, >D7D7, >FFFF f >FFFF 1 
DATA > FFFF , > D7B3 , > D7B3 , > D7FF * 

DATA > FF EF , > C3AF , > C7EB , > 87FF i 
DATA >FF9F f >9BF7, >EFD9, >B9FF Z 
DATA >FFDF, >AFAF , >DFAB, >B7CB & 

DATA >FFFF,)FBFB,)F7FF,>FFFF ' 

DATA >FFFF , >EFDF , >DFDF , >EFFF ( 

DATA >FFFF, >F7FB, >FBFB, >F7FF > 

DATA > FFFF , > D7EF , > 83EF , > D7FF x 
DATA >FFFF , >EFEF, >83EF , >EFFF ♦ 

DATA >FFFF f >FFFF , >CFCF , >EFDF , 

DATA > FFFF ,) FFFF , >B7FF , >FFFF - 
DATA >FFFF , >FFFF , >FFCF , >CFFF . 

DATA >FFFF, >FBF7, >EFDF, >BFFF / 

DATA >FFE7 , >DBDB, >DBDB, >E7FF 0 
DATA >FFE7,>D7F7,>F7F7,)E3FF 1 
DATA > FFE7 , > DBFB , > F7EF , > C3FF 2 
DATA >FFE3,)FBF7, >FBDB, >E7FF 3 
DATA >FFF7 , >E7D7, >D7C3 , >F7FF <\ 

DATA > FFE3 , >EFE7 , > FBDB , > E 7FF 5 
DATA >FFE7, >DFC7, >DBDB, >E7FF 6 
DATA > FFC3 , > FBF7 , > EFEF , > EFFF 7 
DATA >FFE7, >DBE7, >DBDB, >E7FF B 
DATA >FFE7 , >DBE3 , > FBDB , > E7FF 9 
DATA )FFFF , >FFEF, >FFFF , >EFFF : 

DATA >FFFF.>FFEF.)FFCF.>EFDF : 



TAMPON ASCII (512 ADRESSES MEMOIRE) 
BLOCK POUR ACCES DISQUE 
POINTEUR POUR FICHIER SUR DISQUE 
RETOUR CLAVIER 
BYTE D'ETAT 

TABLE D'ATTRIBUTS DES LUTINS 
UORSPACE UTILISATEUR 






DATA >FFFF , >F7EF , >DFEF , >F7FF < 
DATA ) FFFF ,) FFFF , ) C3FF , ) C3FF = 
DATA >FFFF , >DFEF , >F7EF , )DFFF > 
DATA > FFCF , > B7EF , > EFFF , > EFFF ? 
DATA > FFFF , > E3DB , > D3DF , > E3FF 3 
DATA > FFFF , > C7B7 , > B7B7 , > CBFF a 
DATA )9FDF,>C7DB,>DBDB,>B7FF b 
DATA >FFFF, >C?BB, >BFBB, >C7FF c 
DATA )F3F7,>C7B7,)B7B7,>C3FF d 
DATA >FFFF , >C7BB , >83BF , >C7FF e 
DATA >E7DB , )DF8F , )DFDF , >DFFF f 
DATA > FFE3 , ) DBDB , ) E3FB , > DBE7 g 
DATA >9FDF,>D7CB, >DBDB,)DBFF h- 
DATA >EFFF,>8FEF,>EFEF,>83FF i 
DATA )F7FF,)E7F7 I >F7F7,)B7CF j 
DATA > DFDF , > DBD7 , ) CFD7 , > DBFF k 
DATA >CFEF , )EFEF , >EFEF , >83FF 1 
DATA >FFFF , >57AB, >ABAB, >ABFF m 
DATA >FFFF , >A7DB , >DBDB , > DBFF n 
DATA )FFFF,>C7BP,)BBBB,)C7FF o 
DATA >FFFF I )B7DB,)DBC7,)DF8F p 
DATA > FFFF , >C3B7 , ) B7C7 , ) F7E3 q 
DATA >FFFF, >A7DB, >DFDF , )DFFF r 
DATA > FFFF , ) C7BF , > C7FB , ) 87FF s 
DATA )DFDF , >B7DF , >DFDB, >E7FF t 
DATA ) FFFF , ) B7B7 , > B7B7 , ) CFFF u 
DATA >FFFF , >B6BB, >D7D7, >EFFF w 
DATA >FFFF , )95D5 , ) D5D5 , >EBFF U 
DATA ) FFFF , > BBD7 , >EFD7 , ) BBFF X 
DATA )FFFF,)DBDB,)DBE3 f >FBC7 Y 
DATA >FFFF , >83B7 , >EFDB , >83FF Z 
DATA >FFFF,>CFDF,)DFDF,)CFFF [ 
DATA >FFFF , >FFDF , >EFF7, >FBFF \ 
DATA >FFFF,>E7F7,>F7F7,>E7FF ] 
DATA >FFEF , >D7BB , >FFFF , >FFFF * 
DATA > FFFF , > FFFF , > FFFF , > C3FF _ 
•BUFFER/DATA DIVERS 
GRAFUS BSS >20 *ADRESSE. >2900* 



_AV DATA 0 
DATA 0 
DATA 0 



ESPACE DE TRAVAIL ROUTINES GRAPHIQUES 
SAWEGARDE R0 (RETOUR CLWIER) 
SALWEGARDE Y 
SAIWEGARDE X 



SVCOL DATA 
COLORS DATA 
TABCOL DATA 
DATA 
DATA 
DATA 
MENU DATA 
MASQUE DATA 
MENU00 BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
XMENU BYTE 
YMENU BYTE 
YLUT1N BYTE 
OUTECR DATA 
SENSXY DATA 
LIGNES DATA 
COORD DATA 
ATRIBU DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
LUTINS DATA 
DATA 
DATA 
DATA 
DATA 



>2000 
>2100, >3100 
>6100, >7100 
>A1 00 , >B1 00 
>E100,>F100 
MENU10 
MENUOO 
32,32,32,32 

32.32.32.32. 

32.32.32.32, 

32.32.32.32. 

32.32.32.32, 
>08, >38, >6B, 
>B7 

)AE,)AA,>A5, 

>C000 

>2220, >2101. 

0,0 

>AE1B,>0000 
>C0 1 C , >000F 
>C01C,)010F 
>C01 C, >020F 
>C0 1 8 , >030F 
>C013,>040F 
>C013,)050F 
>C013,>060F 
>CO 18, >070F 
>C018,>0A01 
>C000 , >080F 
>AA1 B , >0808 
)AA18,>090F 
>C008, >0B0F 
>C010 , >OBOF 
>C01 8, >OBOF 
>C020 ,)0B0F, 
>2030 , >7C7F 
>030F, >3F3F 
>1F3F , >3F7F, 
>FEFC,>7C78, 
>F8FC,>FCFE, 



SAIWEGARDE COULEUR (MENU) 

COULEUR INITIALE e- 
,>41 00, >51 00 PALETTE COULEURS 
,>8100, >9100 
,)C100,)D100 
>0100, >1100 

PREMIER MENU AFFICHE 

,32,32 LIGNE 24 VIDE 
,32,32 
32,32 

32.32 

32.32.32.32 

,>98,)C8,)F8 ABSCISSE LUTINS MASQUE OPTICN 
ORDOMEE LUTINS MASQUE OPTICN 
>A5 , >A5 , )AA , ) AE , ) AE , >AE , >C0 ORDOWEES POUR LUTINS 
ORDCM4EE POUR EFFACEJ1ENT LUTIN 
>1110, >1202 DIRECTION DE DEPLACEMENT SUR L'ECRflN 
2 POINTS POUR SEGMENT 
COORDCWEES DU POINT SUR ECRAN 
LUTIN 1 
2 
3 



MASQUE ! ' 
MIRE SEGMENT 
MIRE 
FLASH 

MENU ALLLME 1 
MENU ALLLME 
MENU ALLLME 
>D000 MENU ALLLME 
>7F3F,>3F1F LUTIN 1 CODE >0 
>1F0F,>0300 ‘ 2 ’ >1 

>7FFC, >3000 * 3 ’ >2 

>3830, >0000 ' 4 ’ >3 

>FE3E, >0C04 * 5 1 >4 



J 






DPO 

DPI 

DP2 

DP3 

DP4 

DP5 

DP6 

DP7 

DP8 

DP? 

PI 

Ml 



DATA >COFO, 
DATA >OOOC, 
DATA >0000, 
DATA >1010, 
DATA >0000, 
DATA >EEFE, 
DATA )FFFF, 
DATA 0 
DATA 0 
DATA 0 
DATA 1 
DATA 0 
DATA 0 
DATA 0 
DATA 0 
DATA 0 
DATA 0 
DATA 1 
DATA -1 



i>F8FC,>FCF0,)C000 ■ 6 m >5 

>3FFE , >FEFC, >FCF8 ■ 7 ■ )6 

> 1 838 , >3C7C, >7EFE ■ 8 ■ >7 

>00C6, >0010, >1000 MIRE ■ >8 

>3838, >3800, >0000 FLASH * >? 

>FE7C,>FEFE,>EE00 TttSQUE ■ >A 

>FFFF, >FFFF, >FFFF MASQUE MENU >B 
DRAPEAU. FLASH 
DRAPEAU TRACE CGNTINU 
DRAPEAU TRACE DE SEGMENT 
DRAPEAU EFFACEMENT 
DRAPEAU REMPLISSAGE CURVI LIGNE 
DRAPEAU AUXI. REMPLISSAGE CURVILILIGNE 
DRAPEAU REMPLISSAGE COULEUR DE FCND 
DRAPEAU REMPLISSAGE SURFACE HORIZONTALE 
DRAPEAU ECRITURE/LECTURE SUR DISQUE 
DRAPEAU RESERVE 



* DCWEES DES POINTS D'ARRET 
» Y/X,HB (X=POINT DROIT DU SEGMENT) 



5ource REFnP/S 

*** REMPLISSAGE SURFACE *** 

RTREMP DATA 0 * 

RTBOUT DATA 0 * 

RT1LIN DATA 0 * SAWE GARDE RETOUR APPEL (Rll) 

RTSECT DATA 0 * 

RTBIT DATA 0 » 

HB 
GD 
DA V 
GAV 
GAP 
AR 



DATA 0,0 
DATA 0,0 
DATA 0,0 
DATA 0,0 * 

DATA 0,0 * 

DATA 0,0 * 

DATA 0,0 * 

DATA 0,0 * 

DATA 0,0 * 

REMPLI MOV Rll ,SRTREMP 
LWPI GRAFUS 

MOV 3C00RD,3AR Y/X DAWS ARRO 
AB 3P1+1,3AR YM 
MOV 3P1 ,3AR*2 
LI R3,4 
RE105 AI R3,-4 
JLT RE 150 
CLR RO 

MCVB 3AR+KR3) ,R0 ABSCISSE BORNE DROITE 
SUPB RO 
CLR R1 

MOVB 3AR(R3),R1 ORDOWEE BORNE DROITE 
SUPB R1 

MCW 3AR»2(R3) ,3HB SENS DU REMPLISSAGE VERTICAL 
MOV R0,3GAV EXTREMITE GAUCHE SEGMENT PRECEDENT 

MW R0,3DAV EXTREMITE DROITE SEGMENT PRECEDENT 

iCONTROLE MIRE SUR POINT DEJA ALLLME 
MW RO , R1 0 



HEM 

INCREMENT STOCKAGE POINTS D'ARRET 
DEBUT DU REMPLISSAGE D'UN SECTEUR 
PLUS DE SECTEUR A REMPLIR 



DATA 0 
DATA 0 
DATA 0 
DATA 0 
DATA 0 
DATA 0,0 
DATA 0,0 
DATA 0,0 
DATA 0,0 
DATA 0,0 
DATA 0,0 
DATA 0,0 



SENS REMPLISSAGE VERTICAL (-1 MUT, 1 BAS) 

SENS REMPLISSAGE HORIZONTAL (-1 GAUCHE, 1 DROITE) 
ABSCISSE EXTREMITE DROITE AVANT-DERN1 ERE LIGNE 
ABSCISSE EXTREMITE GAUCHE AVANT-DERNIERE LIGNE 
ABSCISSE EXTREMITE GAUCHE DERNIERE LIGNE 



3REBIT 
JEQ RE 150 
RE110 BL 3RE1LIN 
'Cl Rl,4 
JLT RE105 
Cl R1 ,180 
JGT RE105 
MW 3M1 ,3GD 



RE 

TRACE D'LN SEGMENT 
CCNTROLE ECRAN WUT 

CCNTROLE ECRW BAS 



CCNTROLE CCNTINUITE A GAUCHE AVEC SEGMENT PRECEDENT 
C 3GAV,3GAP MEME EXTREMITE GAUCHE 
JEQ RE 120 
C 3GAV,3GAP 

JGT RE115 115->N0WELLE EXTREMITE A GAUCHE DE L'ANCIETNE 
MW 3 GAP, RIO NOWELLE EXTREMITE A DROITE DE L'AWCIEWE 



S 3NI 



MOV 

DEC 

BL 

JMP 

RE115 MOV 
MOV 
NEG 
A 

DEC 



3GAV.R12 RIO: POM DE RECHERCHE j R1 2 : Bl/TEE DE RECHERCHE 
R12 

3RESECT NOUVEALK SECTEURS A CREER ? 

REI20 POUR RECHERCHE A DROITE 

3&W.R10 NOIWELLE EXTREMITE A GAUCHE DE L'MCIETOE 

3GAP,R12 RIO: POM DE RECHERCHE ;R1 2 :BUTEE DE RECHERCHE 



3HB 

3HB,R1 

R12 

3RESECT 

3HB 

3HB.R1 



REMPLISSAGE EN SENS INVERSE POUR NOWEAUX SECTEURS 
RETOUR POUR RECHERCHE SUR SEGMENT PRECEDENT 



JEQ 

MOV 

LI 

NEG 

A 



JNE 

RE130 MOV 
DEC 
MOV 
INC 
A 

NEG 

BL 

NEG 

A 

JMP 

RE 135 MOV 
LI 

REMO A 
C 

JEQ 



NOWEAUX SECTEURS A CREER ? 

REPRENDRE ANCIEN SENS DE REMPLISSAGE 
RETOUR SUR DERNIER SEGMENT 
3GAP,3GAV FIN DU CONTROL? A GAUCHE-)NOLWELLE BORNE GAUCHE GAV 
3HB.R1 CALCULS BORNE, CCNTINU1TE DROITE AVEC SEGME. PRECED. 
3DAV.R10 RIOsPOM DE RECHERCHE 
3REBIT PIXEL ALLlilE ? 

135.-PIXEL ALLLME, CHERCHER BORNE VERS LA GAUCHE 
DEBUT RECHERCHE BORNE VERS LA DROITE 
BORNE EXTREME DROITE 

REMPLISSAGE INVERSE POUR NOWEAUX SECTEURS 



RE135 

3P1.3GD 

R12.253 

3HB 

3GD.R10 
Ri 0 , R1 2 
RE 130 
3REBIT 
RE 125 



BORNE DROITE ATTEINTE ? 
PIXEL ALLUME ? 

125: CONTINUER LA RECHERCHE 



3DAV.R12 BORNE GAUCHE POUR RECHERCHE EN SENS INVERSE 
RIO' ( SUITE) SUR LE SEGMENT PRECEDENT 
R10.3DAV BORNE DROITE POUR SEGMENT SUIWNT 
RIO 

REPASSER SUR SEGMENT PRECEDENT: RECHERCHE CONTINUITE 
RECHERCHE VERS LA GAUCHE 
NOWEAUX SECTEURS ? 

REPRENDRE SENS REMPLISSAGE PRECEDENT 
RETOURNER SUR SEGMENT PRECEDENT 
FIN DES CALCULS, R01PL I R LE SEGMENT SU1LMT 
DEBUT DE RECHERCHE BORNE VERS LA GAUCHE 
BORNE EXTREME GAUCHE 



3HB,R1 

3GD 

3RESECT 

3HB 

3HB,R1 

RE110 

211,300 

R 1 2 , 1 3 

3GO.R10 

R10.R12 

RE145 

3REBIT 



BORNE GAUCHE ATTEINTE ? 

145:EXTREMITE GAUCHE SEGME. SUR BORD GAUCHE ECRAN 
PIXEL ALLUIE ? 





JEQ 


RE140 


140: CONTINUER LA RECHERCHE 


RE145 


C 


R10,3GAV 


BORNE A GAUCHE EXTREMITE GAUCHE SECTEUR PRECEDENT ? 




JLT 


RE105 


SI OUI : SECTEUR FERME-) PASSER AU SECTEUR SUIVANT 




MCV 


RIO, 3DAV 


DAV:NOUVELLE BORNE DROITE POUR SEGMENT SUIVANT 




JMP 


RE 110 


FIN DES CALCULS, RB1PL I R LE SEGMENT SUIWNT 


RE 150 


LWPI USRUS 


FIN DU PROGRAf-ME 




MOV 


3RTREMP.R11 




B 


•Rll 




*** SOUS-PROGREMES **» 


•TRACE D'lM SEGMENT HORIZONTAL ENTRE DAV ET PIXEL ALLLME A GAUCHE DE DAV 


RE1LIN MOV 


Rll, 3RT1LIN 




MOV 


3DAV.R0 


BORNE DROITE 




MOV 


RO ,R2 






MOV 


R0.R10 






BL 


3REBIT 


ALLLMER DANS R4 BIT CORRESPONDENT A DAV 




BL 


3EXTREM 


REMPLISSAGE EXTREMITE DROITE (BITS A GAUCHE DE DAV) 




Cl 


R4,)0100 


OCTET CORRESPGNDANT A R7 PLEIN A GAUCHE ? 




JNE 


RE165 


165 :BORNE GAUCHE ATTEINTE, PASSER AU SEGMENT SUIVWTT 




AI 


R7,-8 


8 PIXELS A GAUCHE 


RE155 


BL 


3REVSBR 


LECTURE NOIAVEL OCTET R7 (B PIXELS A GAUCHE) 




Cl 


R2, 16 


A GAUCHE DE L' ECRAN ? 




JLT 


RE160 


160 POUR REMPLISSAGE A GAUCHE 




MOV 


R?,R? 


AUCLN PIXEL ALLLME DANS LES 8 ? 




JNE 


RE160 


160 POUR REMPLISSAGE A GAUCHE 




LI 


R1Q,)FF00 OCTET R7 VIDE:ALLLMER LES 8 PIXELS 




BL 


3REVSBU 


ALLLMER LES 8 PIXELS 




MOVB 


3C0L0RS , R I 0 




AI 


R7,)2000 


TABLE DES COULEURS 




BL 


3REVSBU 


COLORATION DES 8 PIXELS 




AI 


R7,)E000 


RETOUR A LA TABLE DES PATRONS 




AI 


R7.-8 


8 PIXELS A GAUCHE 




AI 


R2,-8 


B PIXELS A GAUCHE 




JMP 


RE 155 


POURSUITE REMPLISSAGE SEGMENT 


RE 160 


LI 


R4 , >0001 


PIXEL DROIT ALLLME DANS OCTET CORRESPOND A R7 




BL 


3EXTREM 


REMPLISSAGE EXTREMITE GAUCHE SEGMENT 


RE165 


INC 


R2 






MOV 


R2.3GAP 


NOWELLE BORNE GAUCHE POUR SEGMENT SUIVANT 




MOV 


3RT1LIN.R11 




B 


•Rll 





•ALLU1AGE BIT CANS R4 CORRESPONDENT A POSITION RIO 
REBIT MOV Rll ,3RTBIT 



90 









MOV 


R10,R0 


CALCUL DU NLMERO DE L' OCTET CORRESPCNDANT A RIO 




MOV 


R1,R7 






SLA 


R7,5 






SOC 


Rl , R7 






AND I 


R7,)FF07 






MOV 


R0,R4 






AND I 


R4,7 






A 


R0,R7 






S 


R4,R7 


R7:NLMER0 DE L' OCTET CORRESPCNDANT A POSITION RIO 




BL 


3REVSBR 


CALCUL DE R9 (PIXELS ALLLMES DANS R7/R10) 




LI 


R4,)0080 


BIT FORT ALLLME 




ANDI 


RO , 7 


RO POSITION DU BIT DANS L' OCTET CORRESPCNDANT A RIB 




JEQ 


RE170 


RIO A GAUCHE DE L" OCTET : R4=)0080 (PIXEL GAUCHE) 




SRA 


R4,0 


DECALAGE A DROITE EGAL AUX 4 BITS FAIBLES DE RO 


RE 170 


MOV 


3RTBIT , Rl 1 




SZC 


R9,R4 


BIT DE R4 SUR PIXEL ALLLME (DANS R9) ? 




B 


*R11 




*AFFICHAGE EXTREMITE DROITE A PARTI R DU BIT ALLLME DANS R4 


EXTREM SZC 


R9,R4 


BIT R4 SUR PIXEL ALLLME ? 




JEQ 


RE 180 


SI OUI AFF1CHER L' OCTET R9 




SOC 


R4,R9 


SI NON ALLLMER DANS R9 LE BIT CORRESPCNDANT A R4 




DEC 


R2 


1 PIXEL A GAUCHE 




Cl 


R2 ,12 


BORD GAUCHE DE L'ECRAN ? 




JGT 


RE 175 


SI NCN DECALER BIT R4 D'LN PIXEL A GAUCHE 




INC 


R2 


SI OUI AFFICHER L' OCTET R9 




JMP 


RE 160 




RE 175 


SLA 


R4,l 


1 PIXEL A GAUCHE 




Cl 


R4 ,>0100 


PASSAGE DANS L' OCTET A GAUCHE ? 




JEQ 


RE180 


SI OUI L'OCTET EST ENTIEREMENT EXPLORE, AFFICHER R9 




JMP 


EXTREM 


SI NCN DECALER BIT R4 D'LN PIXEL A GAUCHE 


RE160 


MOV 


Rl 1 , 3RTB0LTT * 




MOV 


R9.R10 


•PREPARATION A L'AFFICHAGE 




SWPB RIO 


« 




BL 


3REVSBU 


ALLUVtGE BITS DE R? 




JMP 


RE 185 


185 POUR COLORATION 



RE 1 COL MCV R1 1 , 3RTBOUT ENTREE POUR.MODIF. COULEUR PIXEL DEJA ALLLME 
RE185 AI R7,>2000 TABLE DES COULEURS 
SWPB R7 

MOVB R7,3)BC02 
SWPB R7 

MCWB R7,3)8C02 



CD V. 



COLORATION DES PIXELS 
RETOUR A TABLE DES PATRONS 



MOVB 3COLORS , R1 0 COULEUR DANS RIO 
MOVB 3)8800, R13 
AND I R10,)F000 
AND I R13,)0F00 
SOCB R13.R10 
BL 3REVSBW 
Al R7,)E000 
MOV 3RTB0UT ,R1 1 
B *R11 

*RECHERCHE SECTEURS ENTRE RIO ET BORNE R12 

RESECT MOV R11,3RTSECT 

RE 190 A 3GD.R10 DECALAGE 1 PIXEL VERS R12 

C R10.R12 BORNE R12 ATTEINTE ? 

JEQ RE200 SI OUI FIN DE LA RECHERCHE 

BL 3REBIT RECHERCHE PIXEL ETEINT (DISCONTINU1TE) 

JEQ RE 190 PIXEL ALLUiE, CCNTINUER LA RECHERCHE 

MOV R10,3AR(R3) PIXEL ETEINT->OLWRIR LN NOWEAU SECTEUR 
SWPB R1 RIO DANS AR* 1 : ABSCI SSE DROITE DU SEGMENT 

MOVB R1,3AR(R3) Rl DANS AR:ORDCtNEE DU SEGMENT 
SWPB Rl 

MCV 3HB,3AR*2(R3) HB DANS AR«2:SENS DE REMPL15SAGE DU SECTEUR 



RE 195 



AI R3,4 
A 3GD.R10 
C R10.R12 
JEQ RE200 
BL 3REBIT 
JNE RE 195 
JMP RE190 

RE200 MCV 3RTSECT , Rl 1 
B «Rll 

** LECTURE BYTE VDP *« 

REVSBR SWPB R7 

MCVB R7,3)BC02 
SWPB R7 

MCVB R?,3>8C02 
CLR R9 
MCVB 3>8B00, R9 
SWPB R9 
B *R1 1 

** ECRITURE BYTE VDP ** 

REVSBW MCV R7,RB 



1 SECTEUR SUPPLEMENTAIRE A REMPLIR 
RECHERCHE FIN DU NOIVEAU SECTEUR 
BORNE ATTEINTE ? 

SI OUI FIN DE LA RECHERCHE 

PIXEL ALLLME ? (FIN DU NOWEAU SECTEUR) 

SI NCN CCNTINUER RECHERCHE FIN DE SECTEUR 
FIN DU SECTEUR -) RECHERCHE AUTRE SECTEUR 



INE n* B 






LI R12,)4000 
E1JPB R8 

MGVB RB,3>8C02 
£UPB R8 
SOC R1 2, RB 
MCWB R8,3>8C02 
NOP 

MOVB R10,3)8C00 
B *R11 



Source CRyiy/5 



•TEST SUR LUTJNS 1 A 8 RECHERCHE POSITION CRAYCN (X/Y) 

RTCRA1 DATA 0 RETOUR A L'APPEL 

RTCRA2 DATA 0 RETOUR A L'APPEL 

CRAY01 MOV R11.3RTCRA1 POUR RETOUR PROGRAMME PRINCIPAL 
MOV 3SVCLAV,R4 

Cl R4 f >1200 CRAYON ECLAIRE ? 

JEQ CR?0 

CLR R? DRAPEAU REPETITICN 

MQVB 3YLUTlN*5,3ATRIBUt4Q 
MOVB 3ATR1BU*13,3ATRIBU*41 
LI R0,TABLUT440 
LI R1,ATR1BU«40 
LI R2,4 
BLWP 3VMBU 
LI R8 | 2000 

LI R7,600 
BLWP 3KSCAN 
MGWB 3STATUS,3STATUS 

JNE CR35 NOWELLE TOUCHE TRAITEE DE SUITECSMS REPETITICN) 
MOVB 3RTCLAV,R4 
Cl R4,)FF00 AUCLNE TOUCHE ? 



CR05 



CRIO 



CR15 



TEMPO NOlfVELLE TOUCHE 
TEMPO PREMIERE TOUCHE 



JEQ CR30 
Cl R?,3 
JLT CR25 
LI R7.200 
DEC R7 
JNE CR20 
JMP CR40 



VERS TEMPO ATTENTE TOUCHE 
REPETITION ? 

PAS DE REPETITION 
VITESSE REPETITICN 




CR25 


DEC 


R7 ‘ 






JNE 


CRIO 


TEMPO PREMIERE TOUCHE 




INC 


R? 






JMP 


CR40 




CR3Q 


DEC 


R8 


TEMPO ATTENT NOWELLE TOUCHE 




JNE 


CRIO 






B 


3CR140 


SORTIE 


CR35 


CLR 


R? 


REMISE A ZERO REPETITION 


CR40 


MCWB 3RTCLAV.R4 




JNE 


CR45 


X(LOTIN8) 




LI 


R3,7 






JMP 


CR80 




CR45 


Cl 


R4,)0E00 


C(LUTINl) 




JNE 


CR50 






CLR 


R3 






JMP 


CRBO 




CR50 


Cl 


R4 , >0300 


D(LUTIN2) 




JNE 


CR55 






LI 


R3,l 






JMP 


CR80 




CR55 


Cl 


R4,)0600 


R(LUTIN3) 




JNE 


CR40 






LI 


R3,2 






JMP 


CRBO 




CRdO 


Cl 


R4 , >0500 


E(LUTIN4) 




JNE 


CR<55 






LI 


R3,3 






JMP 


CRBO 




CR45 


Cl 


R4 , >0400 


W(LUTIN5) 




JNE 


CR70 






LI 


R3,4 






JMP 


CR80 




CR70 


Cl 


R4 , >0200 


SauriN6) 




JNE 


CR75 






LI 


R3,5 






JMP 


CR80 




CR75 


Cl 


R4,)0F00 


Z<LUTIN7> 




JNE 


CR85 






LI 


R3,6 




CR80 


BL 


3MODXY 




CR85 


JMP 


CR05 





BE 



/" 









tTRAITEMENT CRAYON 

CR90 LI R2,4 4 BYTES A DEPLACER VERS VDPCTABLE ATTR1BUT LUTIN) 

LI RID, 63 TEMPORISATICN 

CLR R12 DARR=0 SENS TEST VERS LUTIN SUIWNT 

LI R13,4 

MOVB 3YLUTIN*1 ,3ATRIBU*32 ORDCWEE POUR MASQUE SUR DESSIN 
CR95 LI RO ,TADLUT ADRESSE VDP LUTIN 1 

LI Rl.ATRIBU ADRESSE LUTIN 1 

CLR R3 POUR TEST SUR LUTIN 1 

MCW R0,R7 
MGW R1 ,R8 

CR100 LI R?,20 TEMPO. REPCNSE CRAYCN I 

CR105 LI R0,TABLUT*32 ADRESSE MASQUE DANS VDP 
LI R1,ATRIBU«32 
BLUP 3VMBU MASQUE SUR ECRAN 

MCW R7,R0 
MOV RB,R1 

MCWB 3YLUTIN(R3) ,*R1 LUTIN <R3*1) SUR ECRAN 
BLUP 3VMBU 



CLR 


R4 




BLUP 3KSCAN 




MCWB 3RTCLAV,R4 


Cl 


R4 , > 1 200 


CODE T1R (CRAYCN ECLAIRE) 


JEQ 


CR125 


MODIFICATION XY 


DEC 


R? 




JNE 


CRI10 


60UCLAGE POUR REPCNSE CRAYCN (KSCAN) 


MOV 


R7,RQ 




MCW 


RB.Rt 




MCWB 30UTECR , <R1 LUTIN TESTE MIS HORS ECRAN 


BLUP 3VMBU 




DEC 


RIO 




JEQ 


CR130 


FIN TEMPO. PLACEMENT CRAYCN SUR ECRAN 


MOV 


R12.R12 


SENS DES TEST ?<LUTIN SUIWNT OU PRECEDENT) 


JlU 


CR120 


TEST SUR LUTIN SUICYNT 


CLR 


RI2 


TEST SUR LUTIN PRECEDENT PUIS SUIWNT 


MCW 


R3,R3 


TEST SUR LUTIN 1 ? 


JEQ 


CRUS 


TEST SUR LUTIN 8( PRECEDENT) 


DEC 


R3 


TEST SUR LUTIN PRECEDENT 


S 


R13.R7 


LUTIN PRECEDENT 


S 


R13.R8 


ATTRIBUT LUTIN PRECEDENT 


JMP 


CR100 


REPRISE CYCLE DES TESTS 



CD 






CR115 LI 
LI 



RQ,TABLUT*28 ADRESSE LUTIN 8 
R1 .ATRIBU+28 ATTRIBUTS LUTIN 8 



LI R3,7 
MOV R0,R7 
MOV Rl.RB 
JMP CR100 
Cl 1(3,7 
JEQ CR?5 
INC R3 



TEST SUR LUTIN 8<R3*1> 



REPRISE CYCLE DES TESTS 
TEST 0 IN COURS ? 

VERS TEST I 
TEST LUTIN SUIWANT 
LUTIN SUIVANT 
ATTRIBUT LUTIN SUIVYNT 
REPRISE CYCLE DES TESTS 



CR130 LI 
CR135 DEC 



TEMPORISATICN 

DARR=1 POUR FUTUR TEST SUR LUTIN SUILWT 
TEMPO 



A RI3,R7 
A R13,R8 
JMP CR100 
CR125 BL SMODXY 
LI RIO, 3? 

INC R12 
LI R?,50 
B 3CR105 

RO , >8000 TEMPO POUR RETIRER LE CRAYCN DE L'ECRAN 
RO 

JNE CR135 

MCWB 30UTECR , 3ATRI BU+ 32 ADRESSE MASQUE HORS ECRAN 

LI RO.TABLUT+32 
LI R1,ATRIBU*32 
BLWP 3WBU MASQUE HORS ECRAN 
CR140 MCW 3RTCRA1 ,R1 1 
B *R11 

MODIFICATION POSITION X/Y CRAYON SUR ECRAN 
MODXY MOV Rll ,3RTCRA2 

CLR RO 

MCWB 3SENSXY(R3),R0 CODE DEPLACEMENT DU LUTIN NLMERO R3H 
MOV RO ,R4 

ANDI R4 , >0200 DIRECTION VERS HAUT DE L'ECRAN ? (Y-l) 

JNE CR145 SI NCN TEST POUR Y+l 
LI R6.YLUTIN ADRESSE ORDCWEE LUTIN 1 
LI Rl,-1 INCREMENT -1 POUR MODIF.Y 

LI R4 , >0300 LIMITE HAUTE DE L'ECRAN 

LI R5,l 1 DANS R5 POUR MODIF.Y DES LUTINS <3Y*...) 
BL 3CR175 

CR145 MOV RQ,R4 

ANDI R4 y >0100 DIRECTION VERS MS DE L'ECRAN ? <Y* 1 > 

JNE CR150 



3HJ2 V9VWg$ 



c 

LI R6,YLUTIN 

LI RI,1 INCREMENT *1 POUR MODIF.Y 

LI R4,)B500 LIMITE BASSE DE L'ECRM 

LI R5,l 1 DANS R5 POUR MODIF Y DES LUTINS (3Y*...) 

BL 3CR175 
CR150 MOV R0,R4 

ANOI R4 , >2000 DIRECTION VERS LA GAUCHE DE L'ECRM ? (X-I) 

JNE CR155 

LI R6 , COORD* 1 ADRESSE ABSCISSES POINT ET LUTINS 
LI Rl,-1 INCREMENT -1 POUR MODIFICATION X 
LI RV0D00 LIMITE GAUCHE DE L'ECWW 

LI R5,4 4 DANS R5 POUR MODIF.X DES LUTINS (3ATRIBU*...) 

BL 3CR175 

CRI55 MOV R0,R4 

#®I R4,)1000 DIRECTION VERS LA DROITE DE L'ECRAN ? <X*I> 

JNE CR160 POUR RETOUR APPEL • 

LI R6 , COORD* 1 

LI Rl,l INCREMENT *1 POUR MODIF.X 
LI R4,)FC00. LIMITE DROITE DE L'ECRAN 

LI R5,4 4 DANS R5 POUR MODIF. X DES LUTINS ( SATRI BU« . . . ) 

BL 3CR175 

CRI60 MfWB 3VLUTIN*8, 3C00RD NOIWELLE ORDCM4EE Y DANS 3C00RD 
MOVB 3YLUTIN* 1 , 3ATRIBU*32 N0U7ELLE ORDCWEE POUR MSQUE 
MOVB 3ATRIBU*13,3ATRIBU*33 NOIWELLE ABSCISSE POUR fttSQUE 

MOV R0.3SVX 
MOV R1.3SVY 

MOV 3DP1 , 3DP1 DRAPEAU 1 TRACE CONTINU 

JEQ CR165 DRAPEAU 0 TRACE POINT PAR POINT 

BL 3P0INT TRACE CONTINU 

LUJPI USRUS 

JMP CR170 

CR145 MOV 3DP4.3DP4 DRAPEAU REMPLISSAGE CURVILIGNE 

JEQ CR170 REMPLISSAGE CURVILIGNE 

INC 3DP2 

BL 3LIGNE 

CLR 3DP2 

CR170 MOV 3RTCRA2,Rll 

B »RI I 

CR175 CB *R6,R4 X OU Y SUR BORD DE L'ECRM ? 

JEQ CR185 SI OUI PAS DE MODIF. XY, RETOUR A L'APPEL 

LI R4,9 SI NON,? LUTINS A DEPLACER (INCREMENT 1) 



SUPB R1 




AB 


R1,«R6 


MODIF XY 


A 


R5,R6 


ADRESSE COORDCWEE SUIVWTE A MODIFIER 


DEC 


R4 


LUTIN SUIVANT 


JNE 


CR180 




B 


»R1 1 





Source STOR/S 

MODE DATA >0000 MODE LECTURE/ECRITURE 

NOM DATA 304,328,280,320,328,296,400,0 , FlCHIER’»(B CARACTERES) 

DATA 328,360,264,312,296,0,288,408,344 "IMAGE DSK"(9 CARACTERES) 
PAS DATA >80 NCMBRE DE BYTES PAR ENREGI STREMENT 

PBUF DATA 0 ADRESSE BUFFER VDP 

PDATA DATA >0000, >0000, >0001 , PBUF, >8080, >0000, >000F 
TEXT 'DSKX.XXXXXXXXXX' 

•TEST LECTURE/ECRITURE SUR DISQUE 



STORE 


MOV 


3DP8,3DP8 DRAPEAU ECRITURE/LECTURE 




JEQ 


LECTU 




LI 


RO f >0300 MODE ECRITURE 




MOV 


RO,3MODE 




JMP 


ST05 


LECTU 


LI 


RO , >0200 MODE LECTURE 




MOV 


RO , 3MODE 


•DEMANDE NCM FI CHI ER 


ST05 


CLR 


R3 NLMERO DE LA LETTRE A AFFICHER (DWS ; 




LI 


RO ,>1708 DEUXIEME CASE LIGNE 24 




LI 


R2,8 8 BYTES PAR CARACTERE 


ST10 


LI 


R1 ,TALPHA DEBUT TAMPONS CARACTERES ASCII 




A 


3NCM(R3) ,RI ADRESSE DU CARACTERES A AFFICHER 




BLWP 


3WBU 




AI 


RO , 8 CASE SUIVANTE SUR LIGNE 24 




INCT 


R3 LETTRE SUIWNTE 




Cl 


R3,34 FIN DU TMPCN 3N0M ? 




JNE 


ST10 




LI 


R0,0 CLAVIER ENTIER 




MOVB 


R0,9>8374 


•SAISIE NOM 


DU FICHIER IMAGE 


ST15 


LI 


R2,B B BYTES A ECRIRE 




LI 


R4,4 QUATRIEME CARACTERE DU NOM DU FICHIER 



ot? 







ST20 



ST25 



ST 30 



ST35 



ST40 



§ 



m 



ST45 



V. 



LI R0 y >1790 CASE 1? LIGNE 24 (DISQUETTE 1 OU 2) 

LI R1,TALPM*5Q4 SOULIGNE 
BLUP 3LMBU AFFICHAGE 

CLR R3 VIDAGE R3 POUR STATUS (TOUCHE PRESSEE ?) 
BLUP 3KSCAN APPEL CLAJIER . 

H(WB 3STATUS.R3 NOWELLE TOUCHE PRESSEE ? 

JEQ ST25 PAS DE TOUCHE PRESSEE 

MOVB 3RTCLAV.R3 CODE TOUCHE PRESSEE (NLMERO DISK) 1 

Cl R4,4 SAISIE NLMERO DISK ? 

JNE ST40 SAISIE NOM DE L' IMAGE 

Cl R3 ,>3100 CODE NGMBRE 1 ? (DSK1) 

JNE ST 30 POUR TEST SUR 2 

LI R1,TALPHA*134 ADRESSE DU NOMBRE 1 

BLUP 3WBU AFFICHAGE 1 

JMP ST35 POUR TRANSFERT NLMERO WHS PDATA 

Cl R3 , >3200 CODE NCMBRE 2 ? (DSK2) 

JNE ST25 RETOUR CLAUIER REFUSE (L OU 2 SALABLE) 

LI R1 ,TALPHA* 1 44 ADRESSE DU NCMBRE 2 
BLUP 3LMBU AFFICHAGE 2 

MOVB R3,3PDATA*17 NLMERO LECTEUR DISQUETTE WHS PDATA 
LI R1 ,TALPHA+112 POINT 



AI 


RO ,8 


CASE 20 LIGNE 24 


BLUP 


3LMBU 


AFFICHAGE DU POINT 


LI 


R4,6 


SIXIEME LEnRE DU NCM DU FICHIER (DSKX.?> 


AI 


RO ,8 


CASE 21 LIGNE 24 


JMP 


ST 20 


APPEL PREMIER CARACTERE DU NCM DE L'lMGE 


Cl 


R3,)0B00 TOUCHE RETOUR A GAUCHE ? 


JNE 


ST 45 


TEST SUR CARACTERE 


Cl 


R4,6 


PREMIERE LETTRE DU NCM DU FICHIER ? 


JEQ 


ST15 


REPREISE DES SAIS1ES AU DEBUT 


Cl 


R4,4 


PREMIER CARACTERE ? 


JEQ 


ST 25 


SOULIGNE DEJA A GAUCHE 


LI 


Rl.TALPHA CARACTERE ESPACE (EFFACEMENT SOULIGNE) 


BLUP 3LMBU 


EFFACEMENT SOULIGNE 


DEC 


R4 


CARACTERE PRECEDENT 


AI 


RQ,-8 


CASE PRECEDENTE A L'ECRfW 


JMP 


ST20 


APPEL NOIWEAU CARACTERE DE REPLACEMENT 


Cl 


R4,6 


TEST PREMIER CARACTERE (LETTRE ?) 


JNE 


STSO 


TEST VALIDITE CARACTERE (POINT/ESPACE REFUSE) 


Cl 


R3,)4100 


LETTRE A 


JLT 


ST25 


PREMIER CARACTERE REFUSE 



Cl 

JGT 

Cl 

JEQ 

Cl 



R3 , )SA00 LEnRE Z 
ST25 PREMIER CARACTERE REFUSE 
R3 , >2000 CARACTERE ESPACE INTERD1T 
ST25 REFUSE (APPEL NOWELLE TOUCHE) 

R3,)2E00 CARACTERE POINT INTERD1T 
JEQ ST25 REFUSE (APPEL N01WELLE TOUCHE) 

Cl R3,)ODOO TOUCHE ENTER (FIN DU NCM) 

JEQ ST55 FIN DE LA SAISIE DU NCM DU FICHIER 

MtWB R3 , 3PDATA* 1 3( R4 > CARACTERE DANS 3PDATA 

LI R1 .TALPHA ADRESSE TMPON CARACTERES ASCII 

SUPB R3 CODE ASCII DANS BYTE FAIBLE 

AI R3,-32 CODE ASCII-32 (NLMERO D'ORDRE DANS TAMPGN T) 

SLA R3,3 8*R3 POUR ADRESSE DU CARACTERE DANS TAMPCN T 

A R3,R1 ADRESSE DU CARACTERE DANS TAMPON T 

BLUP 3LMBU AFFICHAGE DU CARACTERE 

Cl R4,15 DIXIEME CARACTERE ? 

JEQ ST 25 CORRECTION DERNIER CARACTERE ? 

INC R4 CARACTERE SUIVANT 

AI RO ,8 CASE SUIWNTE A L'ECRAN (LIGNE 24) 

JMP ST20 APPEL PROCMIN CARACTERE 
ST55 DEC R4 TRANSFERT LONGUEUR DU NCM FICHIER DANS PDATA 
SUPB R4 UALEUR DANS BYTE FORT 
M(WB R4 , 3PDATA* 1 3 LONGUEUR DU NCM DU FICHIER DANS 3PDATA 
LI RO , >0 1 00 DEMI-CLAVIER GAUCHE 
MOVB RO ,3)8374 

•ENREGISTREMENT/LECTURE IMAGE SUR DISQUE 
*01WERTURE FICHIER 

LI RO.PAB PAB MODE OVERTURE 
LI RI, PDATA 
LI R2,)20 

BLUP 3LMBU PAB DANS LA VDP 
LI R6.PAB+13 • 

MOW R6.3FNTR 

BLUP 3DSRLNK OVERTURE DU FICHIER 
DATA 8 

«ECRITURE/LECTURE SUR DISQUE 

MOVB 3M0DE.R1 PAB AU MODE ECITURE/LECTURE 
LI RO , PAB* 4 
BLUP 3VSBU 
LI RO , PAB* 6 



CLR 3PBUF ADRESSE DE LA TABLE DES PATRONS 






LI Rl.PBUF 
LI R2,2 
BLUP 3LMBW 

CLR R3 NIMERO D'ENREGISTREMENT 
ST 60 MW R4,3PMTR 
hi til' Jl'MilllK 
DAI A U 
IIIC R3 

A 3F'A5,3PBUF 
BLWP 3LMEU 
Cl R3,44 
JNE ST40 

LI R1 , >2000 AORESSE DE LA TABLE DES COULEURS 
M0V R1.3PBUF 
LI R1 , PBUF 

BLUP 3LMBU 

ST45 MW R4.3FNTR 
BLUP 3DSRLNK 
DATA 8 
INC R3 

A 3PAS,3PBUF 
BLWP 3LMBU 
Cl R3,92 
JNE ST65 

*FERMETURE FICHIER 

LI R1 ,>0100 PAB AU MODE FERMETURE 

LI R0,PAB+4 

BLWP 3VSBU 

MW R4,3PNTR 

BLWP 3DSRLNK 

DATA 8 FERMETURE DU FICHIER 

*EFFACEMENT LIGNE 24 

LI R3 , 31 31 CASES A EFFACER 



LI 


RO , > 1 708 


PREMIERE CASE LIGNE 


LI 


R1 ,TALPHA CARACTERE ESPACE 


LI 


R2,8 




BLWP 


3LMEU 




AI 


RO ,8 


CASE SUIVANTE 


DEC 


R3 




JNE 


ST70 


DERN1ERE CASE ? 


B 


*R11 





V. 



Source mmu/5 



$WENU DATA 0 SAWEGARDE MENU EN COURS 
RTTM DATA 0 RETOUR A L'APPEL 
MENU HI BYTE 

DYft M,!M, A?, 45,73.30 1RAI2 

BYTE 32, 82, <9,67,84, 51 RECT3 

BYTE 32,47,85,92,84,52 CURV4 

BYTE 32,85,84,73,74,53,32,70 UTIL5 F(FIN D'EXECUTICN) 

DATA MENU 1 0 ,MEN1 10 ,MEN1 20 ,MEN1 30 ,MEN1 40 ,MENU1 0 
' DATA RESE01 ,SAUT2,SAUT2,SAUT2,SAUT2,SAUT2 
MENI00 BYTE 32,32,32,32,32,32 
BYTE 32,32,32,32,32,32 
BYTE 32,32,32,32,32,32 
BYTE 32,32,32,32,32,32 
BYTE 32,32,32,32,32,32,32,84 T(MENU) 

DATA MEN1 00 ,MEN1 00 ,MEN1 00 ,MEN1 00 ,MEN1 00 ,MENU1 0 
DATA RESE01 ,RESE01 .RESE01 ,RESE01 ,RESE01 ,SAUT2 
MENI10 BYTE 32, 84, 73, B3, 73, 4? VISI1 

BYTE 32,49,70,70,45,50 EFFA2 

BYTE 32,47,79,85,74,51 C0UL3 

BYTE 32,70,79,78,48,52 FCND4 

BYTE 32,84,89,80,49,53,32,84 TYPE5 T 

DATA MEN1 10 ,MEN1 1 0 ,MENU1 0 ,MEN1 1 0 ,MEN1 1 0 ,MENU1 0 
DATA RVI SI B , REFFAC , RCOULE , RFOND , RESEO 1 ,SAUT2 
MEN 120 BYTE 32,45,88,49,83,49 AXES1 

BYTE 32,83,49,71,77,50 SEGM2 

BYTE 32,48,82,79,73,51 DR0I3 

BYTE 32,82,49,74,73,52 RELI4 

BYTE 32,80,79,73,78,53,32,84 P0IN5 T 

DATA MEN1 20 ,MEN1 20 ,MEN1 21 ,MEN1 20 ,MEN1 20 ,MENU1 0 
DATA RAXES , RL I GNE , SAUT2 , RESEO 1 , RPOINT , SAUT2 
MEN121 BYTE 32,72,79,82,73,49 HORI1 

BYTE 32,84,49,82,84,50 VERT 2 

BYTE 32,79,82,73,49,51 0RIE3 

BYTE 32,48,49,77,73,52 DEMI 4 

BYTE 32,32,32,32,32,32,32,84 T 

DATA MEN121 ,MEN121 ,MEN121 ,MEN121 .MEN12I ,MENI20 
DATA RHORIZ, RVERT I , RESEO 1 , RESEO 1 , RESEO 1 , SAUT2 
MEN130 BYTE 32,34,79,78,34,49 'ON’l 

BYTE 32,34,79,70,34,50 ’OF^ 



ro 



r 

BYTE 32,32,32,32,32,32 
BYTE 32,83,85,82,70,52 SURF4 
BYTE 32,80,73,86,79,53,32,84 P1V05 T 
DATA MEN1 30 ,MEN1 30 ,MEN1 30 ,MEN1 30 ,MEN1 30 ,MENU1 0 
DATA RON, ROFF, RESEO 1 ,RCSURF,RCSUR2,SAUT2 
MEN140 BYTE 32,67,65,68,82,49 CADR1 

BYTE 32,83,89,77,66,50 SYMB2 

BYTE 32,69,67,82,65,51 ECRA3 

BYTE 32,82,69,77,80,52 REMP4 

BYTE 32,83,85,73,84,53,32,84 SU1T5 T 
DATA MEN1 40 ,MEN140 ,MENU1 0 ,MEN1 40 ,MEN141 ,MENU1 0 
DATA RESE01 ,RESE01 ,RECRf=N,RSURFA,SAUT2,SAUT2 
MEN141 BYTE 32,79,70,83,69,49 0FSE1 

BYTE 32,90,79,79,77,50 Z00M2 

BYTE 32,71,82,79,85,51 GR0U3 

BYTE 32,70,69,78,69,52 FENE4 

BYTE 32,83,85,73,84,53,32,84 SUITS T 
DATA MEN141 ,MEN141 ,MEN141 ,MEN141 ,MEN142,MEN140 
DATA RESE01 ,RESE01 ,RESE01 .RESE01 ,SAUT2,SAUT2 
MEN142 BYTE 32,79,86,76,65,49 OVLA1 

BYTE 32,82,69,67,72,50 RECH2 

BYTE 32,69,78,82,69,51 ENRE3 

BYTE 32,32,32,32,32,32 
BYTE 32,32,32,32,32,32,32,84 T 
DATA MEN1 42 ,MENU1 0 ,MENU1 0 ,MEN1 42 ,MEN1 42 ,MEN1 4 1 
DATA RESEO 1 , RSTORE , RSTORE , RESEO 1 , RESEO 1 , SAUT2 
* PROGRtftlE TEST MENU 
TESMEN MOV R11,3RTTM 

MOV SMENU , 3SWENU SAIWEGARDE MENU EN COURS 
MOV 3MASQUE , 3MENU 

BL 3AFFMEN AFF1CHAGE MASQUE DE LIGNE 
MOV aSLWENU,3MENU RESTITUTION MENU EN COURS 
MCWB 3YMENU,R4 * 

MWB R4,3ATR1BUM8 * 

MOVB R4 , SATRI BU*52 * 

MOVB R4, SATRI BU< 56 * PREPARATION POUR AFFICHAGE LUT1NS MENU 

MOVB R4,3ATR1BU*60 » 

LI R0,TABLUT+48 * 

LI R1 ,ATRIBU*48 * 

LI R4.1000 TEMPO EXTINCTION CRAYCN 
ME05 DEC R4 



TEMPO ECLAIRAGE CRAYCN 



ME10 



ME15 

ME20 



ME25 

ME30 

ME35 

ME40 

ME45 



JNE ME05 
LI R4.20 

CLR R5 
DEC R4 

JEQ ME15 POUR CONFIRMATION OPTION RETENUE 
BLUP 8KSCFN 

MOVB SRTCLAV,R5 TOUCHE ENFCNCEE OU CRAYCN ECLAIRE 
Cl R5, > 1200 POUR OPTION TESTEE 

JNE ME10 CRAYON PAS ECLAIRE 

B SME80 CRAYCN ECLAIRE-)OPTION REFUSEE 

CLR R6 NUMERO OPTION 

CLR R7 

MOVB 3XMENU(R6) ,R7 ABSCISSE OPTION (PREMIER LUTIN) 
MOVB R7,8ATRIBU*49 X DFNS POSITION LUTIN1 MENU 
AI R7 , >0800 X*8 (LUTIN 2) 

MOVB R7,3ATRIBU*53 
Al R7,)0800 X* 1 6 (LUTIN3) 

MOVB R7,3ATRIBU*57 

AI R7, >0800 X*24 (LUTIN 4) 

MOVB R7,3ATRIBU+61 

BLWP 3WBW AFFICHAGE LUTINS (MASQUE OPTION) 

LI R4 ,24 TEMPO REPONSE CRAYCN 

BLUP 3KSCAN 

MOVB 3RTCLAV,R5 

Cl R5, >1 200 CRAYCN ECLAIRE ? 

JEQ ME70 CONFIRMATION OPTION 

Cl R5,)1300 TOUCHE 1 

JNE ME35 

LI R6,0 

JMP ME70 

Cl R5,)0700 TOUCHE 2 
JNE ME40 

LI R6,l 

JMP ME70 

Cl R5 , >0800 TOUCHE 3 
JNE ME45 

LI R6,2 

JMP ME70 

Cl R5, >0900 TOUCHE 4 

JNE ME50 

LI' R6,3 
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JMP 


ME70 




RSTORE Cl 


R6,2 LECTURE ? (OPTICN MENU 2:R4=2> 


ME50 


Cl 


R5,)0A00 


TOUCHE 5 


JEQ 


RSTOR1 




JNE 


ME55 




INC 


3DP8 DRAPEAU ECRITURE DANS FI CHI ER 




LI 


R6,4 




JMP 


RST0R2 




JMP 


ME70 




RSTOR1 CLR 


3DP8 DRAPEAU LECTURE DANS FICHIER 


ME55 


Cl 


R5,)0B00 


TOUCHE T 


RSTOR2 BL 


3 STORE ROUTINE LECTURE/ENREGI STREMENT SUR DISQUE 




JNE 


ME<50 




JMP 


SAUT2 




LI 


R6,5 




RCOULE BL 


3NEWCOL CHOIX NOWELLE COULEUR 




JMP 


ME70 




JMP 


SAUT2 


ME60 


DEC 


R4 


FIN DE TEMPO ? 


RFCND MW 


3DF’6,3DP6 




JNE 


ME30 




JEQ 


RFCND1 




INC 


R 6 


OPTICN SUIUWTE 


CLR 


3DP6 AWULATICN REMPLISSAGE FCND 




Cl 


R6,5 


AVANT/DERNIERE OPTICN ? 


CLR 


3DP1 TRACE CRAYON NCN VISIBLE 




JLT 


ME20 


OPTION SUIVWTE 


LI 


•R12.MEN110 




JEQ 


ME65 


PLUS D'OPTICN 


MW 


R1 2, 3MEN1 1 0+38 




BL 


3PASQ 


EFFACEMENT LICNE 24 


MW 


3SVC0L.3C0L0RS 




B 


SME80 


PLUS D'OPTICN A TESTER 


JMP 


SAUT2 


ME65 


LI 


R7,)F800 


OPTICN MENU (DERNIERE) 


RF0ND1 INC 


3DP 6 POUR REMPLISSAGE FIND 




MWB 


R7.3ATRIBUM? * 


INC 


3DP1 TRACE CCNTINU 




MWB 


R7.3ATRIBU+53 « 5 LLTTINS SUR OPTICN MENU (T) 


MW 


3C0L0RS.3SVC0L 




MWB 


R7,3ATRIBU*57 » 


BL 


3NEUCOL CHOIX COULEUR DE FCND 




MOVB 


R7,3ATR1BU<41 * 


LI 


R12.MENU10 




BLUP 


2LMBU 




MW 


R12.SMEN1 10+38 




JMP 


ME25 


DERNIER TEST OPTICN M (MENU) 


JMP 


SAUT2 


ME70 


BL 


ZWSQ 


EFFACEMENT MASQUE 4 CASES 


RVISIB MW 


3DP1.3DP1 DRAPEAU TRACE VISIBLE ? 




MW 


30NENU.R4 ADRESSE MENU EN COURS 


JNE 


RINJIS 




AI 


R4,32 


PREMIERE LICNE DATA CMS TABLEAUX MENU 


INC 


3DP1 DEPLACEMENT VISIBLE DU CRAYCN 




SLA 


R6,i 


2*R6 (NLMERO D'ORDRE DU PROCHAIN MENU) 


MW 


3DP3.3DP3 




A 


R6,R4 


ADRESSE DU PROCM1N MENU DMS TABLEAUX 


JNE 


VISIB2 




MW 


*R4,3SLMENU SAWEGARDE DU PROCMIN MENU 


VISIB1 LI 


R12.MEN110 




AI 


R4, 12 


DEUXIEME LICNE DATA DANS TABLEAUX MENU 


MW 


R12,3MEN110+32 




MW 


»R4,R1 


ADRESSE DE LA ROUTINE A EXECUTER 


MW 


R12,3MENU0»34 




B 


*R1 


BRANCHEMENT POUR EXECUTION ROUTINE (DU MENU) 


JMP 


SAUT2 


RPOINT 


BL 


2POINT 


ROUTINE POINT 


R1WIS CLR 


SDPl SUPRE5SI ON DEPLACEMENT VISIBLE' DU CRAYCN 




LUPI 


USRUS 




MW 


3DP3,3DP3 




JMP 


SAUT2 




JNE 


VISIB1 


RAXES 


BL 


3 HCRIZ 


ROUTINE HORIZONTALE 


JMP 


VISIB4 




BL 


WERT I 


ROUTINE VERTICALE 


REFFAC MW 


3DP3.3DP3 CHOIX D' EFFACEMENT AVEC CRAYCN 




JMP 


SAUT2 




JNF. 


VISIB3 


RLIGNE BL 


2LIGNE 


ROUTINE SEGMENT 


INC 


3DP3 DRAPEAU=I :SUPRESSICN DE L' EFFACEMENT 




JMP 


SAUT2 




MW 


3DP1.3DP1 



v. 7 






r 







JEQ V1SIB1 

VISIB2 LI R12.MENU10 

MCW R1 2 , 3MEN1 10*32 
LI R12,MEN110 
MCW R12,SMEN1 10*34 

SAUT2 JMP ME75 

V1SIB3 CLR 3DP3 DRAPEAU=Q sEFFACEMENT AU CRAYGN 

MCW 3DP1.3DP1 
JNE VISIB1 

VISIB4 LI R12,MEN110 

MCW R12,SMEN110*32 
LI R12.MENU10 
MOW R12.3MEN1 10*34 
JMP ME75 

RECRAN BL 3EFFT EFFACEMENT OE TOUT L'ECRAN 

RESE01 JMP ME75 

RON CLR 3DP4 ' 

JMP ME75 

ROFF INC 3DP6 

JMP ME75 

RCSURF MOV 3DP5,3DP5 
JEQ RCSURl 

LI R12,MEN130 
MOV R12,3MEN13Q*38 
CLR 3DP6 

CLR 30P5 

CLR 3DP4 

MOV 3SVC0L.3C0L0RS 
JMP ME75 

RCSURl LI R12.MENU10 

MCW R1 2, SMEN1 30* 38 
INC 30P5 

MCW 3C0L0RS,3SVC0L 
JMP ME75 

RCSUR2 MOV 3DP5.3DP5 
JEQ ME75 

INC 3DP4 

INC 3DP3 

CLR 3DP1 

BL 3NEWCOL 

BL 3L1CNE 



CD V. 



JMP ME75 

RHORI2 MGVB 3C00RD+1 ,R1 
MCWB 3P1 , 2C00RD* 1 
BL 3H0RIZ 
MCWB R1.3COORDH 
JMP ME75 

RVERTI MCWB 3C00RD.R1 

MCWB 30LTTECR , 3C00RD 
BL 3VERTI 
MCWB R1.3C00RD 
JMP ME75 

RSURFA MOV 3C0L0RS.3SVC0L 
BL 3NEWCOL 
BL 3REMPLI 
MOV 3SVC0L.3C0L0RS 

NEC 3SVCLAV INVERSION RTCLAV POUR TEST DANS PROG 
MOV 3SWENU.3MENU MENU EN COURS 
BL 3AFFMEN AFFICHAGE MENU EN COURS 
MOV 3RTTM|R11 

LI R1 , >8000 TEMPORISATICN 
DEC R1 
JNE ME 85 
B *R11 

* AFFICHAGE MENU (ADRESSE MOW DANS SALMEN) 

AFFMEN MOV 3MENU.R5 ADRESSE DU MENU 

LI R4,32 31 CARACTERES A AFFICHER 

LI RO ,>1700 CASE 2 POUR AFFICHAGE 
LI R2,8 8 BYTES A AFFICHER 

LI R1 ,TALPHA ADRESSE DES CARACTERES ASCII 
CLR R3 

MCWB *R5,R3 CODE ASCII DE LA LETTRE 
SWPB R3 CODE ASCII DANS BYTE FAIBLE 
A1 R3.-32 NLMERO LETTRE DANS T AMPIN I 
SLA R3,3 =*B (ADRESSE LETTRE DANS T) 

A R3,R1 ADRESSE LETTRE DANS R1 

BLWP 3UMBU AFFICHAGE DE LA LETTRE 

INC R5 BYTE SU1VWT (LETTRE SU1VANTE) 

AI R0,8 ADRESSE CSAE SUIVANTE SUR LIGNE 24 

DEC R4 LETTRE SUIVANTE 

JNE ME90 SI NON LETTRE SUIVANTE 

LI R2.16 



ME75 

ME8Q 



ME85 



ME90 



9t7 



r 



B *R11 

* EFFACEMENT MASQUE 4 CASES 

mSQ LI R0,TABLUT*48 LUTIN CARRE 

LI R1 ,ATRIBU*48 POSITION PREMIER LLTTIN 

LI R2,16 4 LUTINS (16 BYTES D'ATTRIBlfT) 

CLR R4 

MCWB 30UTECR.R4 POSITION Y HORS ECR^4 

M(WB R4,3ATRIBUt48 LUTIN 1 

MCWB R4,3ATRIBU*52 LUTIN 2 

MCWB R4,3ATRIBU*56 LUTIN 3 

MCWB R4,3ATR1BU»60 LUTIN 4 

BLUP 3LMBU EFFACEMENT DES 4 LUTINS 

B *R11 



Source HEUJC/S 

#* NEUC/S ** 

RTNC DATA 0 POUR RETOUR APPEL 

NEWCOL MOV Rll ,3RTNC 

MCW 3MASQUE , SMENU POUR LIGNE 24 EN NOIR 
BL 3AFFMEN 



* M1SE EN PLACE DES COULEURS CMS TABLE/COULEURS 



NE05 


CLR 


R3 


NUMERO DU CARRE AFFICHE 




LI 


RO , >3708 


ADRESSE DEUX1EME CASE 


NE10 


MCW 


3TABC0L(R3) ,R1 ADRESSE NOIWELLE COULEUR 




CLR 


R4 


NLMERO DU BYTE (6 BYTES COULEUR, 2 BLANC) 


NE15 


BLUP 


3WSBU 




INC 


RO 


BYTE SUILWT 




INC 


R4 






Cl 


R4,6 


DERNIER BYTE COULEUR ? 




JNE 


NE15 






AI 


RO ,6 


SAUT D'INE CASE 




INCT 


RO 


DEBUT DE LA CASE 




INCT 


R3 






Cl 


R3 , 28 


DERNIERE COULEUR ? 




JNE 


NE10 




* AFFICHAGE 


DES 14 CARRES COULEURS 




LI 


RO , > 1708 


ADRESSE CASE 2 




LI 


R2,8 


8 BYTES A CHARGER 



NE20 LI R1 .LUTINS+88 CARACTERE PLEIN 
BLUP 3LMBW 

AI RO ,16 SAUT D'LNE CASE 
DECT R3 ‘ NUMERO CASE SUIWWTE 
JNE NE20 DERNIERE CASE ? 

* AFFICHAGE N(NOIR) ET T( TRANSPARENT) 

LI RO , >1 7E8 CASE 30 

LI R1 ,TALPHA+416 LETTRE T 
LI R2,8 

BLUP 3LMBU 

LI RO , > 1 7F8 CASE 32 

LI R1 ,TALPHA+368 LETTRE N 
BLUP 3LMBU 

* AFFICHAGE DES 14 REPERES COULEURS 





LI 


R0,)1710 


ADRESSE CASE 3 




LI 


R2,8 


B BYTES A CHARGER 




LI 


R3.28 






LI 


R1 ,TALPHA*256 LETTRE 3 


NE25 


BLUP 


3W1BU 






AI 


RO , 16 


SAUT D'INE CASE 




AI 


R1 ,8 






DECT 


R3 


NLMERO CASE SUlLmTE 




JNE 


NE25 


DERNIERE CASE ? 


* ATTENTE CRAYCN ECLAIRE 




LI 


R4 , >8000 


TEMPO POUR PLACER LE 


NE30 


DEC 


R4 






JNE 


NE30 




NE35 


CLR 


R3 






MCWB 


R3, 3)8374 


SELECTION DE TOUT LE 




BLUP 


3KSCAN 






MCWB 


3RTCLAW,R3 




Cl 


R3 , ) 40 0 0 


LETTRE 3 




JLT 


NE55 






Cl 


R3,)4E00 


LETTRE N 




JLT 


NE45 






JGT 


NE40 






LI 


R3 , 1 5 


COULEUR NOIRE 




JMP 


NE50 




NE40 


Cl 


R3, >5400 


LETTRE T 




JNE 


NE55 






LI 


R3 , 1 6 


COULEUR TRANSPARENT 



9t7 





JMP 


NE50 




NE45 


LI 


R4 , >4000 






S 


R4,R3 






SWPB 


R3 




NE50 


LI 


R4,)0I00 






MCWB 


R4 ,3)8374 






JMP 


NEB5 




NE55 


LI 


R4 , >0 1 00 


SELECTION CLAVIER GAUCHE 




MCWB 


R4, 3)8374 






CLR 


R4 






BLWP 


3KSCAN 


TEST SUR CRAYCN 




MCWB 


3RTCLAV,R4 RETOUR CRAYON 




Cl 


R4 , > 1 200 


CRAYCN ECLAIRE ? 




JNE 


NE35 


PAS DE RETOUR CRAYON 


* CCNTROLE CRAYON SUR LIGNE 24 




MOV 


3MASQUE,3MENU 




BL 


3AFFMEN 






LI 


R4 , >2000 


TEMPO POUR EXTINCTION CRAYCN 


NE60 


DEC 


R4 






JNE 


NE60 


FIN DE TEMPO ? 




LI 


R3 , 25 


TEMPO POUR REPONSE CRAYON 


NE65 


BLWP 3KSCAN 


APPEL CRAYCN 




MOVB 3RTCLAV.R4 RETOUR CRAYCN 




Cl 


R4 , > 1 200 


SI CRAYCN ENCORE ECLAIRE.MWLM 




JNE 


NE70 


RECOMiENCER LA ROUTINE 




B 


3NE05 




NE70 


DEC 


R3 






JNE 


NE65 


FIN DE TEMPO ? 



* SEQUENCE RECHERCHE CO'JLEUR CHOI SI E 

MCWB 3YMENU,3ATRIBU*60 ORDCWEE Ll/TIN 4 (SUR LIGNE 24) 

LI RO f >0800 CASE 2 LIGNE 24 

MCWB R0,3ATRI8U*61 ABSCISSE LUT1N 4 (SUR LIGNE 24) 

LI R0,TABLUT*60 PATRON LUTIN 4 (BLPMC SUR CASE TESTEE) 
LI R1 ,ATRI BU* 60 ATTRI BUTS LUTIN 4 
BLWP 3W4BU AFFICHAGE CARRE 
LI R5,25 TEMPO REPONSE CRAYCN 
BLUP 3KSCAN APPEL CRAYON 
MOVB 3RTCLAV.R4 RETOUR CRAYCN 
Cl R4 , > 1 200 CRAYCN ECIAIRE ? 

JEQ NEB5 COULEUR RETENUE 
DEC R5 FIN DE TEMPO ? 



NE75 



NE80 



*\ 



JNE NE80 NOWEAU TEST CRAYCN 
LI R5 f >1000 16 BYTES SUPPLEMENTAIRES (2 CASES A DROITE) 
AB R5,3ATRIBU*61 2 CASES A DROITE 
INC R3 NUMERO DE CASE SUIVANT 

Cl R3,16 DERNIERE CASE ? 

JNE NE75 TEST NOIWELLE CASE 
MCWB 30UTECR , 3ATRI BU* 60 LUTIN 4 HORS ECRAN 
BLWP 3WBU EFFACEMENT LUTIN 4 

B ' 3NE05 PAS TROLWE DE CASE (RETOUR DEBUT ROUTINE) 

MOVB 30UTECR,3ATRIBUt60 LUTIN 4 HORS ECRAN 
BLUP 3WBW EFFACEMENT LUTIN 4 
INC 1^4 REPONSE ACCEPTEE (TEMPO) 

Cl R4 , >5000 

JNE NE90 FIN DE TEMPO ? 

SLA R3,l 2*R3 

MCW 3TABCOL(R3),3COLORS NOIWELLE COULEUR 
* COULEUR CARACTERES ASCII 
LI RO ,>3700 
LI R1,)F100 
BLWP 3VSBU 
INC RO 
Cl RO ,>3800 
JNE NE95 

MCW 3RTNC.R11 RETOUR A L' APPEL 
B *R1 1 



NE85 



NE90 



NE95 



Sourco GR<fPM/S 

RTGRAF DATA 0 

CR5 DATA 0, 0,0,0 

* ROUTINE TRACE DE POINT 

POINT MOW R1 1 , 3RTGRAF APPEL WEC Y/X DANS COORD 
LWPI GRAFUS 
MOV 3RT6RAF ,R1 1 
MCWB 3C00RD+ 1 ,R0 X DANS RO 
SRL RO ,8 

MCWB 3C00RD , R1 Y DANS R1 
SRL R1 ,8 
JMP P01NT3 

*APPEL DEPU1S ROUTINE GRAPHIQUE CALCUl/NT LNE COURBE.Y/X DANS SVY/SVX 



V 






POINTC MOW 


R11.3RTGRAF 


GR05 


SUPB R4 


=WSBR 


LWPI 


GRAFWS 






MWB R4 ,3>8C02 




MOW 


SPTGPAF.PII 




1 


Rurn R4 




MW 


3WX,kO 






MWB R4 ,3>BC02 




MOW 


3SWY.R1 






MOW R5 , RO 




Cl 


RO , 13 


COTE GAUCHE DE L'ECRAN 




MOWB 3)8800, R6 




JLT 


GR20 






LI R3, >8000 




Cl 


RO , 252 


COTE DROIT DE L'ECRAN 




SRC R3,0 




JGT 


GR20 






LI R5 , >4000 




Cl 


R1 ,3 


MUT DE L'ECRAN 




MW 3DP3.3DP3 


0 : EFFACEMENT ; 1 : PAS D'EFFACEMENT 


JLT 


GR20 






JNE GR10 




Cl 


R1 ,181 


BAS DE L'ECRAN 




S2CB R3,R4 


EFFACEMENT :BIT CORRESPONDS MIS A 0 


JGT 


GR20 






JMP GRIS 




JMP 


P0INT3 




GR10 


SOCB R3,R4 


PAS D'EFFACEMENT: BIT CORRESPCNDANT MIS A 


P0UTT2 MW 


R11.3RTGRAF 


APPEL AWEC Y/X DANS SVY/SWX 




MW R4,R0 




LWPI 


GRAFUS 






AI RO , >2000 


ADRESSE COULEUR 


MW 


3RTGRAF.R11 






SUPB RO 


=WSBR 


MOW 


3SWX.R0 






MWB RO ,3>8C02 




MW 


3SW.R1 






SUPB RO 




P0INT3 MW 


R1 ,RA 


APPEL INTERNE A GRAF.Y/X DANS R1/R0 




MWB R0,3>8C02 




SLA 


R4,5 






MWB 3C0L0RS , R1 




SOC 


R1,R4 






MWB 3>8800 ,R3 




ANDI 


R4,)FF07 






ANDI R1,)F000 


COULEUR 'CN’ 


MW 


RO ,R5 






ANDI R3,)0F00 


COULEUR ■OFF 1 


ANDI 


R5,7 






SOCB R3,R1 


COULEURS ’CN'+’OFF’ 


A 


RO ,R4 






SUPB RO 


=WSEU 


S 


R5,R4 


NLMERO DE L' OCTET DANS R4 




MWB R0,3>BC02 




MOW 


3DP6.3DP6 


REMPLISSAGE FOND ? 




SUPB RO 




JEQ 


GR05 


GR05 : PAS DE REMPLISSAGE DU FOND 




SOC R5,R0 




LI 


R5 , >4000 






MWB RO ,3>BC02 




AI 


R4 , > 2000 






NOP 




SUPB 


R4 


=WSBR 




MWB R1 ,3)8C00 




MWB R4,3)8C02 




GR15 


SUPB R4 


=WSBU 


SUPB R4 






MWB R4,3)8C02 




MW8 R4,3>8C02 






SUPB R4 




MWB 3C0L0RS , RO 


EN R EMPLACEMENT DE ’NOP’ 




SOC R5,R4 




MWB 3>8800,R6 






MWB R4,3>BC02 




ANDI 


R4,)F000 


CARDER COULEUR ’CN 1 




NOP 




ANDI 


R0,)F000 


COULEUR "CN" 




MWB R4,3>8C00 




SRL 


RO ,4 


TRANSFORMEE EN COULEUR ’OFF’ 


GR20 


B *R11 




SOCB R0,R4 


COULEURS ‘ON 1 ♦■OFF* 








JMP 


GR15 











et* 



r 






•ROUTINE TRACE D'AXES 
HORI2 LUPI GRAFUS 

MCWB 3C00RD.R9 Y 
SRL R9,8 

LI R8,13 DEBUT A GAUCHE DE L'ECRAN 
GR25 MCW R8,R0 
MCW R9,R1 
BL 3P0INT3 
INC R8 

Cl R8.2S3 COTE DROIT DE L'ECRAN ? x 
JLT GR25 
JMP GR35 

VERT I LUPI GRAFUS 

MCWB 3COORDH ,R8 X 
SRL R8,8 

LI R9,3 DEBUT EN mUT DE L'ECRAN 



GR30 


MOV 


R8.R0 






MCW 


R9.R1 






BL 


3P0INT3 






INC 


R9 






Cl 


R9.182 BAS DE L'ECRAN ? 




JNE 


GR30 




GR35 


LUPI 


USRWS 






B 


•Rll 




•ROUTINE TRACE DE SEGMENT 




LIGNE 


MOV 


3DP2,3DP2 






JNE 


GR40 


1 : DEUXI EME POINT DU SEGMENT 




MOV 


3C00RD.3LIGNES 


0: PREMIER POINT DU SEGMENT 




MCW 


3P1.3DP2 


1 POUR ATTENTE DEUXI EME POINT 




MOVB 


3YLUT IN* 5 , 3ATRI BU* 36 


Y POUR AFFICHAGE MIRE FIXE SEGMENT 




MCWB 


3ATRI BU* 1 3 , 3ATRI BU* 37 


X POUR AFFICHAGE MIRE FIXE SEGMENT 




LI 


RO ,TABLUT ♦ 3<S 






LI 


R1 , ATRI BU* 36 






LI 


R2,4 






BLWP 


3VMBW 


AFFICHAGE MIRE FIXE 




B 


•Rll 




GR40 


LUPI 


GRAFUS 






MOV 


30LTTECR , 3ATRI BU* 36 






LI 


RO ,TABLUT*36 






LI 


R1 ,ATRIBU*36 






LI 


R2,4 





CO 



V 



BLUP 3VMBU 

MOV SCOORD , 3LI GNES+ 2 

CLR 3DP2 

MCWB 3LIGNESM.R9 

SRL R9,8 

MCWB 3LIGNES4 3.R7 

SRL R7,B 

MOV R7 , 3CR5* A 

MOVB 3LIGNES.R10 

SRL RIO, 8 

INC RIO 

MOVB 3LI GNES+2, R8 
SRL R8,8 
INC R8 

MGW R8 , 3CR5* 6 
CLR R12 
MOV 3P1.3CR5 
MCW 3P1 , 3CR5+2 
S R9.R7 
JLT GR45 
JMP GR50 

GR45 MOV 3M1.3CR5 

NEG R7 

GR50 MCW R7.R7 

JNE GR55 
SETO R12 

GR55 S R10.R8 

JLT GR60 

JMP GR65 

GR60 MOV 3M1 ,3CR5*2 

NEG R8 

GR65 MCW R9,R0 

MOV R10.R1 

DEC R1 

BL 3POINT3 

C R9,3CR5«4 

JNE GR70 

C RIO, 3CR5+ 6 

JEQ GR80 

MCW R12.R12 

JLT GR75 



GR70 



INC n* B 





A 


3CR5.R? 






S 


RB.R12 






JMP 


GR65 




GR75 


A 


3CR5*2,R10 






A 


R7.R12 






JMP 


GR65 




GR80 


LWPI 


USRWS 






B 


*R11 




EFFT 


Ll 


RO , ) 20 00 


ADRESSE TABLE DES COULEURS 




LI 


R1 ,>1100 


NOIR SUR NOIR <LES POINTS RESTENT ALLLMES) 


GR85 


BLWP 


SVSBU 






INC 


RO 






Cl 


RO , >3700 


23 LIGNES A COLOR1ER NOIR SUR NOIR 




JNE 


GR85 






CLR 


RO 


DEBUT DE LA TABLE DES PATRONS 




CLR 


R1 


BYTE FORT=0 


GR90 


BLWP 


sysBu 






INC 


RO 






Cl 


RO , >1700 


23 LIGNES A ETEINDRE 




JNE 


GRPO 






B 


*R1 1 





Source PROG/S 



»» PROG/S ll SUIVI CRAYCN SUR ECRAN ** 



CRAYON 


LWPI 


USRWS 


ESPACE DE TRAVAIL PROGRAMiE PRINCIPAL 




BL 


3MODB1T 


PASSAGE EN MODE BIT/MP 




BL 


3CHARLU 


CHARGEMENT DES LUTINS DANS LES TABLES VDP 




CL 


3TESMEN 


AFF1CHAGE PREMIER MENU 


PRO 5 


CLR 


3DP0 


DRAPEAU 0: FLASH ETEINT 




BL 


3FLASH 


FLASH ETEINT 




BL 


SMI RE 


MIRE AFFICHEE 


PR10 


LIMI 


2 


INTERRUPTION ? 




LIMI 


0 






INC 


3DP0 


DRAPEAU 1 : FLASH ALLIME 




BL 


3FLASH 


MIRE ETEINTE, FLASH ALLINE 




LI 


R1 ,100 


TEMPORISATION POUR REACTION CRAYON SUR FLASH 


PR15 


DEC 


R1 






JEQ 


PRO 5 


POUR NOIWEL APPEL CRAYCN OU CLAVIER 




BLWP 3KSCAN 


APPEL CRAYCN OU CLJWIER 



V 



PR20 



CLR RO 

M(WB 3RTCLAV,R0 

Cl RO , >FF00 TOUCHE ENFCNCEE ? 

JEQ PR15 

MOV RO ,3SVCLAV SAUVEGARDE' RO 
BL 3TESMEN TEST CRAYCN SUR LIGNE 24 ? 

MOV 3SVCLAV,3SyCLAy UALEUR CHANGEE PAR TESMEN ? 

JLT PR10 SyCLAy<0-)CNE OPTION MENU A ETE EXECUTES 

CLR 3DP0 DRAPEAU POUR ETEINDRE LE FLASH ET POUR RECHERCHER 

BL 3FLASH LA DIRECTION DE DEPLACENENT DU CRAYON, 

BL JMIRE FLASH ET MIRE ETEINTS 

BL 3CRAY01 RECHERCHE DIRECTION CRAYCN 

JMP PRO 5 RETOUR NOWELLE SEQUENCE MIRE/FLASH 

MOVB 3YLUTIN*5,3ATRIBU*40 ORDCWEE POUR MIRE 
MtWB 3ATRI BU* 1 3 , 3ATRI BU* 4 1 ABSC1SSE POUR MIRE 

LI RO.TABLUTMO ADRESSE MIRE DANS TABLE D'ATTRIBUTS 
LI R1,ATR1BU*40 NOUJEAUX ATTRIBUTS MIRE 
LI R2 , >0004 4 BYTES A CHARGER 

BLWP 3VWBW NOLWELLE POSITION MIRE DANS TABLE D'ATTRIBUTS 
LI R3, 20000 TEMPORISATION MIRE A L'ECRAN 

DEC R3 



SI NCN.ALLU1ER FLASH :Y POUR FLASH 
A L'ECRAN 



NOP 

JNE PR20 

MCW 30LTTECR , 3ATRI BU* 40 FIN DE TEMPO. -> MIRE HORS ECRAN 
BLWP 3W1BW 
B *R1 1 

FLASH MOW 3DP0.3DP0 DRAPEAU 0 -> FLASH A ETEINDRE 
JEQ PR25 

MtWB 3YLUTIN*5,3ATRIBUH4 
MOVB 3ATR1 BU+ 13, 3ATRI BU* A5 
JMP PR30 

PR25 MOV 30UTECR,3ATRIBU*44 FLASH HORS ECRAN 

PR30 LI R0,TABLUT*44 ADRESSE FLASH DANS TABLE D'ATTRIBUTS 

LI R1,ATR1BU*44 NOLWEAUX ATTRIBUTS FLASH 

LI R2,)Q004 4 BYTES A CHARGER 

BLWP 3M1BU 
B *R11 
* TABLE D'ECRAN 
MODBIT LI R0,)01F0 
BLWP 3WTR 
LI R0,)1C00 



)F0 DANS R1 VDP POUR INHIBER L'ECRAN PENDANT LES 
OPERATIONS DE MISE EN PLACE DU MODE BIT-+WP 
ADRESSE TABLE D' ECRAN 



J 



60 



r 





CLR 


R2 




PR35 


CLR 


Rl 


DEBUT D'LN DES TR01S TIERS DE LA TABLE D'ECRAN 




CLR 


R3 




PR40 


BLUP 


3VSBU 


NLNERO DE L' OCTET D'ECRM DFWS LA TABLE 




INC 


RO 






INC 


R3 






AI 


Rl ,>0100 


NIMERO SU1VANT POUR OCTET SUIUWT DANS LA TABLE 




Cl 


R3 y >0100 


FIN DU TIERS DE L'ECRW ? 




JNE 


PR40 






INC 


R2 


TIERS SUIVANT 




Cl 


R2 ,>0003 


TROISIEME TIERS TERMINE ? 




JNE 


PR35 




» TABLE DES 


PATRONS 






CLR 


RO 


ADRESSE DE LA TABLE DES PATRCNS 




CLR 


Rl 


TOUS LES BYTES SONT ETEINTS 


PR45 


BLWP 


3VSBU 






INC 


RO 






Cl 


RO y >1 BOO 


MISE A 0 DE TOUTE LA TABLE DES PATRCNS (24 L1GNES) 




JNE 


PR45 




* TABLE DES 


COULEURS 






LI 


RO , >2000 


DEBUT DE LA TABLE DES COULEURS 




LI 


Rl ,>1100 


NOIR SUR NOIR 


PR50 


BLWP 


3VSBU 






INC 


RO 






Cl 


RO , >3700 


23 LIGNES COLORIEES (LI GNE 24 POUR MENU/QUESTICNS) 




JNE 


PR5Q 




* COULEUR DES CARACTERES ASCII (L1GNE 24 A L'ECRAN) , 




LI 


RO , >3700 


ADRESSE AFFICHAGE CARACTERES ASCII (LIGNE 24) 




LI 


Rl , >F1 00 


CARACTERES ASCII NOIR SUR BLANC 


PR55 


BLWP 3USBW 






INC 


RO 






Cl 


RO , >3800 


FIN DE LA LIGNE MENU (LIGNE 24) 




JNE 


PR55 




•MODIFICATION DES REG1STRES VDP 




LI • 


RO , >0002 


R0=02 <-> BIT6=1 :MODE M3 (BIT-MAP MODE) 




BLWP 3WTR 






LI 


RO , >0 1 EO 


R1=E0=80*40«20 (-> BITS 0,1, 2=1 




BLWP 3WTR 


16KRAM, DISPLAY SCREEN, VDP INTERRUPT 




LI 


RO , >0207 


R2=07 <-> 07«400=1C00 




BLUP fcWTR 


ADRESSE TABLE D'ECRWOICQO 




LI 


RO ( >03FF 


R3-FF <-> FF»40«i..)2000 1!! 



BLWP 


3WTR 


ADRESSE TABLE DES COULEURS: >2000 


LI 


RO , >0403 


R4=03 <-> 03*800=. . .>0000 !!! 


BLUP 


3WTR 


ADRESSE TABLE DES PATRONS: >0000 


LI 


RO , >0537 


R5=37 (-> 37*80=1 B80 


BUWP 


3LWTR 


ADRESSE TABLE D' ATTRIBUTS DES LUTINS:>1B80 


LI 


RO , >0603 


R6=03 <-> 03*800=1800 


BLUP 


JvUTR 


ADRESSE TABLE DE DESCRIPTION DES LUTINS:>1BQ0 


LI 


RO ,>0701 


R7=01 <-> ECRM NOIR 


BLUP 


3LWTR 




B 


*R1 1 





•LUTINS 

CHARLU LI R3 ,>0100 SELECTION DEMI-CLAUIER GAUCHE 

MCWB R3,3>8374 

LI R0 ,>1800 TABLE DE DESCRIPTION DES LUTINS 

LI R1 , LUTINS ADRESSE DES DONNEES DES FORMES DES LUTINS 

LI R2,152 152 BYTES A CHARGER (1? PATRONS) 

BLWP 3LM8U 

LI RO , > 1 B80 TABLE DES ATTR1BUTS DES LUTINS 

LI Rt.ATRIBU ADRESSE DES DONMEES DES ATTRIBUTS DES LUTINS 

LI R2.128 32 LUTINS 

BLUP 3WBU 

B *R1 1 

END CRAYON 



“N 



Cade machine A entrer on 
mdmalre ovec fc/iisy BUG 
(option m) 



7000 


in 

<r 


5A 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


7010 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


71 


18 


7F 


F8 


7020 


7E 


22 


AO 


00 


FF 


EO 


20 


00 


3F 


FF 


00 


36 


10 


01 


06 


1C 


7030 


11 


00 


50 


5C 


00 


04 


10 


OE 


00 


01 


3A 


20 


20 


20 


20 


20 


7040 


20 


20 


3? 


3? 


2F 


34 


20 


41 


53 


20 


20 


20 


20 


20 


20 


20 


7050 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


7060 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


7070 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


20 


7000 


20 


20 


20 


20 


20 


20 


30 


30 


30 


31 


44 


53 


4B 


31 


2E 


00 


70 VII 


mi 


Oil 


on 


on 


7? 


40 


00 


on 


to 


01 


00 


on 


70 


OF 


on 


or 



r 



70A0 


00 


05 


00 


08 


00 


70B0 


90 


00 


70 


DS 


62 


70C0 


00 


00 


72 


E5 


00 


70D0 


00 


00 


00 


00 


00 


70E0 


7F 


CD 

Li. 


AO 


00 


6F 


70F0 


00 


01 


70 


B8 


7E 


7100 


00 


00 


00 


00 


00 


7110 


00 


00 


00 


00 


00 


7120 


FF 


FF 


C7 


B7 


B7 


7130 


F3 


F7 


C7 


B7 


B7 


7140 


E7 


DB 


DF 


8F 


DF 


7150 


EF 


FF 


8F 


EF 


EF 


7160 


FF 


FF 


87 


DB 


DB 


7170 


FF 


FF 


C7 


BF 


C7 


7180 


FF 


FF 


BB 


BB 


D7 


71 90 


FF 


E7 


DB 


FB 


F7 


71 AO 


FF 


F7 


E7 


D7 


D7 


71 BO 


00 


00 


00 


00 


00 


71 CO 


00 


00 


00 


00 


00 


71 DO 


00 


00 


00 


00 


00 


71 EO 


60 


70 


80 


90 


AO 


71 FO 


20 


20 


20 


20 


20 


7200 


AE 


AA 


A5 


A5 


A5 


7210 


11 


10 


12 


02 


00 


7220 


CO 


1C 


01 


OF 


CO 


7230 


CO 


13 


05 


OF 


CO 


7240 


CO 


00 


08 


OF 


CO 


7250 


CO 


F8 


OB 


OF 


CO 


7260 


7C 


7F 


7F 


3F 


3F 


7270 


3F 


7F 


7F 


FC 


30 


7280 


FC 


FE 


FE 


3E 


OC 


7290 


3F 


FE 


FE 


FC 


FC 


72A0 


00 


C6 


00 


10 


10 


72B0 


FE 


7C 


FE 


FE 


EE 


72C0 


00 


00 


00 


00 


00 


72D0 


00 


00 


00 


01 


FF 


72E0 


22 


31 


24 


32 


2C 


72F0 


72 


DA 


74 


92 


74 


7300 


27 


2F 


22 


30 


25 


7310 


72 


FE 


72 


FE 


72 


7320 


74 


FE 


21 


2E 


2B 



00 


00 


61 


36 


10 


01 


70 


B8 


7E 


B8 


CO 


00 


IB 


A8 


72 


44 


00 


04 


00 


00 


F8 


00 


00 


00 


00 


01 


00 


00 


7E 


3E 


00 


00 


2D 


OF 


7F 


F8 


00 


4F 


00 


3A 


7F 


B8 


00 


3A 


00 


00 


64 


76 


63 


J5A 


CO 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


CB 


FF 


FF 


FF 


C7 


BB 


BF 


BB 


C7 


FF 


C3 


FF 


FF 


FF 


C7 


BB 


83 


BF 


C7 


FF 


DF 


FF 


9F 


DF 


D7 


CB 


DB 


DB 


DB 


FF 


83 


FF 


FF 


FF 


57 


AB 


AB 


AB 


AB 


FF 


DF 


8F 


FF 


FF 


A7 


DB 


DF 


DF 


DF 


FF 


87 


FF 


DF 


DF 


87 


DF 


DF 


DB 


E7 


FF 


EF 


FF 


FF 


E7 


D7 


F7 


F7 


F7 


E3 


FF 


C3 


FF 


FF 


E3 


FB 


F7 


FB 


DB 


E7 


FF 


F7 


FF 


FF 


E3 


EF 


E7 


FB 


DB 


E7 


FF 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


20 


00 


00 


10 


20 


30 


40 


50 


CO 


DO 


EO 


FO 


72 


DA 


71 


EE 


20 


20 


20 


20 


20 


08 


38 


68 


98 


C8 


F8 


B7 


AE 


AE 


AE 


CO 


CO 


00 


22 


20 


21 


01 


00 


00 


AE 


IB 


00 


00 


CO 


1C 


00 


OF 


02 


OF 


CO 


18 


03 


OF 


CO 


13 


04 


OF 


06 


OF 


CO 


18 


07 


OF 


CO 


18 


OA 


01 


08 


08 


CO 


00 


09 


OF 


CO 


F8 


OB 


OF 


OB 


OF 


CO 


F8 


OB 


OF 


DO 


00 


20 


30 


03 


OF 


3F 


3F 


IF 


OF 


03 


00 


IF 


3F 


FE 


FC 


7C 


78 


38 


30 


00 


00 


F8 


FC 


CO 


FO 


F8 


FC 


FC 


FO 


CO 


00 


00 


OC 


00 


00 


18 


38 


3C 


7C 


7E 


FE 


10 


10 


00 


00 


38 


38 


38 


00 


00 


00 


EE 


FE 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


72 


DA 


7E 


32 


29 


2E 


2C 


2F 


23 


30 


72 


DA 


72 


FE 


73 


22 


73 


46 


72 


DA 


74 


FE 


74 


FE 


75 


06 


74 


FE 


2D 


2E 


2A 


32 


2C 


20 


72 


FE 


72 


FE 


72 


DA 


74 


DE 


74 


F2 


74 


AC 


74 


B2 


75 


86 


26 


30 


2D 


31 


20 


20 


2C 


20 


7i 


22 



00 

FE 

06 

00 

06 

22 

00 

00 

B7 

B7 

DF 

EF 

C7 

FB 

D7 

EF 

C3 

00 

00 

00 

BO 

20 

AA 

00 

1C 

13 

00 

F8 

IF 

00 

04 

F8 

00 

00 

01 

FF 

20 

FE 

31 

DA 

2F 



01 



V. 



7330 


73 


22 


73 


22 


73 


22 


7340 


75 


72 


75 


06 


74 


FE 


7350 


2C 


2G 


73 


46 


73 


46 


7360 


75 


12 


75 


OA 


75 


18 


7370 


71 


EA 


72 


D6 


C8 


20 


7380 


72 


D6 


71 


EA 


Dl 


20 


7390 


D8 


04 


72 


54 


D8 


04 


73A0 


02 


04 


03 


E8 


06 


04 


73B0 


13 


09 


04 


20 


60 


20 


73C0 


04 


60 


75 


9E 


04 


C6 


73D0 


02 


27 


08 


00 


D8 


07 


73E0 


02 


27 


08 


00 


D8 


07 


73F0 


04 


20 


60 


20 


Dl 


60 


7400 


13 


00 


16 


03 


02 


06 


7410 


02 


06 


00 


01 


10 


30 


7420 


10 


2A 


02 


85 


09 


00 


7430 


OA 


00 


16 


03 


02 


06 


7440 


02 


06 


00 


05 


10 


18 


7450 


11 


BB 


13 


04 


06 


AO 


7460 


D8 


07 


72 


4D 


D8 


07 


7470 


04 


20 


60 


28 


10 


BB 


7480 


00 


OC 


OA 


16 


A1 


06 


7490 


04 


51 


06 


AO 


7B 


C4 


74A0 


06 


AO 


7C 


FE 


10 


2C 


74B0 


10 


26 


CB 


20 


72 


CA 


74C0 


72 


CO 


C8 


20 


71 


D6 


74D0 


72 


CO 


C8 


20 


71 


D8 


74E0 


72 


CO 


72 


CO 


16 


03 


74F0 


10 


06 


C8 


20 


72 


C4 


7500 


04 


EO 


72 


C4 


10 


4A 


7510 


10 


44 


05 


AO 


72 


CA 


7520 


04 


EO 


72 


CA 


04 


EO 


7530 


71 


D8 


10 


33 


05 


AO 


7540 


C8 


20 


72 


C8 


72 


C8 


7550 


04 


EO 


72 


CO 


06 


AO 


7560 


72 


19 


D8 


20 


72 


D2 


7570 


10 


14 


DO 


60 


72 


18 


7580 


D8 


01 


72 


18 


10 


OA 


7590 


06 


AO 


78 


E8 


C8 


20 


75A0 


72 


D6 


71 


EA 


06 


AO 


75B0 


06 


01 


16 


FE 


04 


5B 



22 


72 


DA 


74 


9C 


74 


A6 


75 


5E 


2E 


24 


2F 


20 


20 


2B 


31 


29 


32 


46 


73 


46 


73 


46 


72 


DA 


75 


OC 


40 


74 


FE 


C8 


OB 


72 


D8 


C8 


20 


EC 


71 


EA 


06 


AO 


75 


B6 


C8 


20 


FF 


D8 


04 


72 


4C 


D8 


04 


72 


50 


53 


02 


00 


IB 


BO 


02 


01 


72 


4C 


FE 


02 


04 


00 


• 14 


04 


C5 


06 


04 


60 


83 


75 


02 


85 


12 


00 


16 


F7 


C7 


Dl 


E6 


71 


F9 


D8 


07 


72 


4D 


51 


02 


27 


08 


00 


D8 


07 


72 


55 


59 


04 


20 


60 


28 


02 


04 


00 


18 


75 


02 


85 


12 


00 


13 


3C 


02 


85 


00 


10 


36 


02 


85 


07 


00 


16 


03 


85 


08 


00 


16 


03 


02 


06 


00 


02 


03 


02 


06 


00 


03 


10 


24 


02 


85 


04 


10 


IE 


02 


85 


OB 


00 


16 


03 


04 


16 


D3 


05 


86 


02 


86 


00 


05 


00 


04 


60 


75 


9E 


02 


07 


F8 


00 


51 


D8 


07 


72 


55 


D8 


07 


72 


59 


AO 


76 


00 


Cl 


20 


72 


D6 


02 


24 


14 


72 


D6 


02 


24 


00 


OC 


CO 


54 


EO 


70 


B8 


10 


31 


06 


AO 


7C 


DE 


AO 


7D 


22 


10 


29 


06 


AO 


7B 


6A 


CA 


13 


08 


04 


EO 


72 


CA 


04 


EO 


D8 


10 


1A 


05 


AO 


72 


CA 


05 


AO 


D6 


06 


AO 


7B 


6A 


10 


10 


C3 


20 


AO 


72 


CO 


10 


09 


04 


EO 


72 


CO 


C4 


16 


03 


05 


AO 


72 


C4 


10 


4D 


AO 


7D 


FC 


10 


47 


04 


EO 


72 


CA 


41 


C8 


20 


72. 


C8 


72 


C8 


13 


OA 


C8 


04 


EO 


72 


C6 


C8 


20 


71 


D6 


C8 
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